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MPL 

Microdata 32/S 
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Loader, I/O System 

Loader, I/O System 

One pass, top-down parse, 
in memory operation, hash 
addressing of symbols 

64K Bytes 



401 Symbols 
36 3 Symbols 
210 Symbols 

1200 Records per minute 
(typical) when not I/O 
bound 

Source file, object file, 
listing file, console 

24 toggles including listing 
selection, format control, 
and error control 

100 discursive diagnostics, 
35 consistency checks, memory 
checksums, stack overflow 
protection 
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1.0 INTRODUCTION 



The MPL 64K Self Compiler is a modern, high-performance, 
user-oriented language translator. Emphasis is placed on 
simplicity of operation ard complete diagnosis of error 
conditions. This compiler is a self compiler in two senses: 
it is written in the same language, MPL, it translates, 
and it runs on the same machine, Microdata 32/S, for which 
it generates code. 

The present reference manual describes a language translator 
for MPL: Microdata Programming Language. The MPL language 
is described in a companicn language reference manual. The 
present MPL language is ar outgrowth of an earlier MPL that 
is a subset of the current MPL. A cross compiler exists 
that implements the earlier MPL; the cross compiler runs on any 
machine that has an XPL inplementation, in particular an IBM 
System/370. A complete bibliography of documents related 
to the MPL language and translators is shown in Appendix A. 

This compiler reference manual is organized in 6 chapters 
and several appendicies. Chapter 1 is an introduction to the 
compiler and compiler reference manual. Chapter 2 discusses 
compiler operation. Chapter 3 describes compiler formats 
and is mainly useful for aaterpreting the listings. Chapter 
4 discusses diagnostics ard is useful when the on-line 
messages do not suffice. Chapter 5 specifies the translation 
algorithms used to convert source to object. Chapter 6 
describes internal compiler operation and organization and 
is useful for compiler maintenance or enhancement. The 
appendicies provide a quick reference guide to the flags 
and toggles. 

The term compiler is used to refer specifically to the 
subject of this present dccument: the MPL 64K Byte Self 
Compiler; the term transla tor is used generically as 
appropriate. The term pre gram is used colloquially for an 
external procedure. Likewise, a card is a colloquialism 
for a source record. A program as input to the compiler is 
a source program, as outpi t from the compiler (and used 
as input to the loader) ar object program. A routine name 
of the compiler is writter in capital italics ( ROUTINE ) , 
a variable of the compiler in small italics ( variable ) . 
In programming examples, keywords are written in upper case 
(KEYWORD) and variables ir lower case (variable) . The 
graphic ')zi' is used to represent a blank. 



Sec 2.0 



2.0 COMPILER OPERATION 



This chapter discusses the various aspects of compiler 
operation. The compiler is controlled by means of toggles, 
A console log is maintained of compiler activity. Large 
or unusual programs may re ^uire attention to compiler 
memory use . 

Operation of the MPL compi er is designed for convenience 
and simplicity. The compi Ler requires only one pass and 
operates in memory. No scratch peripherals are required, 
nor program overlays. In iddition to a console device, up 
to 3 peripherals are required for source, object, and listing 
as shown in Figure 2.0a; tie object and listing devices 
are necessary only if used 

The compiler is invoked as appropriate to the operating 
system at hand. It may be loaded as any other program or 
invoked directly as a memo y image. 

Compilation speed is typic tlly 1200 records per minute when 
not limited by I/O. Compi ation rythmn is steady except 
for brief pauses to comput<! checksums at compiler start 
and program end, to assign addresses after a declaration 
set, and to sort the symbo table before it is listed. 



Fig 2.0a 
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Figure 2.0a: I/O File Structure 
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2.1 CONTROL TOGGLES 



Control over compiler operation is through the mechanism 
°^ toggles . Toggles are internal to the source program; 
there is no external operating system mechanism for 
controlling compiler oper<ition. Each toggle controls a 
single aspect of compiler operation and has a binary value: 
on or off. 

The complete set of 24 toe gles is listed in Appendix E. 
with their default values. A detailed explanation of the 
operation of each toggle s given in Appendix F. 

All toggles assume a defai It value when the compiler is 
invoked. Toggles change curing program compilation as 
specified by the user, or occasionally are altered by the 
compiler. At the start ol subsequent programs toggles 
reassume their default va ues unless frozen by the P-toggle. 
The state of all toggles c t the end of a program is displayed 
in the program summary (see Section 3.3.8). 

Toggles may be altered by the user in any comment. Three 
characters are used as toe gle control operators: 

$ (dollar sign) - If on set off, if off set on 
& (ampersand) - Set on 
% (percent sign) - Sel off 

The character that iirjnedii tely follows the toggle operator 
is interpreted as the togc le to be altered. Should this 
character not be an implenented toggle, compiler operation 
is not affected. Toggles that are sometimes altered by 
the compiler are the H- toe gle, O- toggle, U- toggle, and 
X- toggle as described in / ppendix F. 

Toggle changes are honorec by the compiler as soon as they 
occur. Since a listing line is buffered, toggles that 
affect the listing format become effective before the line 
in which they appear is listed. Since the compiler parse 
is top-down, toggles that affect object generation should 
appear before the external procedure entry. It is common 
practice to collect all tcggles together as a preamble to 
the program proper. 
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2.2 CONSOLE LOG 



During the operation of the compiler a console log 
is maintained on the console device to track compiler 
progress and report major errors. Figure 2.2a shows 
a typical console log. 

The content and format of the console log are fixed 
and may not be suppressed or altered. The first entry 
on the log is a preamble that contains the version 
identification; the appearance of the preamble assures 
that the compiler has been invoked successfully. The 
last entry on the log is a postamblei that is issued 
just before exit to the operating system; the appearance 
of the postamble assures that the compiler has terminated 
successfully . 

The body of the console log consists of program entries, 
compiler aborts, and operating systeim messages. 
For each program the program name and flag count is 
shown; the name is listed as soon as encountered, the 
flag count is appended when the program ends. A 
compiler abort is listed on the log; all other flags 
Eire not. If the abort is suppressed, this is noted 
£Lnd compilation continues, othtjrwLsei end-of-job 
aictivity occurs. Operating system messages are also 
included in the console log as they occur. 
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Fig 2.2a 
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Figure 2.2a: Sample Console Log 
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2. 3 MEMORY USE 



Compiler memory use is of concern only with very large or 
unusual programs. The compiler is designed to handle 
ordinary programs of modest size v/ithout strain. A large 
program may exceed the available symbol table space, a 
pathological program the available; st£ick space. Stack and 
symbol table use is monitored and overflow causes a compiler 
abort. 

A fixed portion of memory is devoted to the operating system, 
the program space of the compiler, and the compiler's stack. 
The remainder of memory is used for the symbol table. The 
use of memory and the memory cost of various compiler 
features is shown in Figure 2.3a. Whe^re feasible, memory 
is shared and reclaimed so that, in ordinary programs, 
memory is exhausted only by symbol table overflow. 

Should the stack overflow. Figure 2.3a can be used to judge 
how to reorganize the program to fit. Usually the overflow 
is precipated by an excessively conplicated expression 
and can be corrected by breaking the offending expression 
into simpler components. 

Should the symbol table overflow, references may be suppressed 
with the R- toggle. This usually doubles the effective 
symbol table size. Ultimately, the symlool table is completely 
full and the only remedy possible is to break the offending 
program into smaller segments. It is considered good 
programming practice to separate ai large program into several 
smaller functional modules. 

The compiler and operating system require 64K bytes. 
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Fig 2,3a 
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Figure 2.3a: Compiler Limits and Memory Costs 
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3.0 COMPILER FORMATS 



The source, object, and listing formats are described in 
this chapter. Figure 3.0a shows the I/O record structure 
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Fig 3,0a 
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Figure 3.0a: I/O Record Structure 
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3.1 SOURCE FORMAT 



The source program compiled is read from logical unit 1. 
This logical unit is used by the operating system as 
SYSIN and is typically blocked, double buffered, and open. 
Figure 3.1a shows a sample source program. 

Input is streamed: that is record boundaries have no 
syntactic significance. However, each record is listed 
on a separate line in the program listing. Input records 
may be up to 80 bytes in length and may be of variable or 
fixed length. If variable length records are used, trailing 
blanks are appended by the compiler to produce an 80 byte 
record. 

Source may also come from the symbol table via literallys. 
Literallys may contain arh itrary text, may be nested, and 
follow the same scoping ri les as other symbols. 

When a program ends any tc xt remaining in a active literally 
or a partially used source record is discarded. The next 
program begins with the ne xt source record. 

An end-of-file in the soui ce stream terminates compilation. 
All output buffers are flashed and exit is made to the 
operating system. 



LIST90P0I MAIN PROCl DCL 



wRITFjl 



/*** SYSI^ TO svsnuT aq/po list 



SVSGET 

SVSPUT 

K 

8UF(80) 



EXT PROC WORD, 

EXT PROC, 

WOPD, 

BYTE, 

^ORO INITIAL ("ODOA")» 



DO WHILE SVSr^ETCaSUFtn, 60) > 01 
DO KsRO TO 1 RY -1 > 
IE 8UF(K) ts I • 

THEN GO TO WRJTFj 
END; 



* * ♦ / 



end; 
END LISTPofiO; 



CALL SYSPUT(»BUE(l), KH 

'. ** L L O ^ O ** U ' (i ■ U *^ ' ^ ■ i! '' I 



/* READ SYSIN UNTIL EOF */ 
/♦ TRIM TBAILI^G RLAN/KS */ 

/* WRITE SYSOUT, APPEND CRLF */ 



Figure 3.1a: Sample Source Program 
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3.2 OBJECT FORMAT 



The object program is written on logical unit 4. This 
logical unit has no special significance to the operating 
system. It is double buffered by the compiler and is 
unblocked. Object is written in response to the O- toggle. 

The object record format vses the hexadecimal format defined 

in Section 5.9. A sample object program is shown in Figure 3.2a, 

The first object record is used as a title card. Reading 
from left to right the title card contains: 

• Object Record Header : This will always be ' #)2J010100 ' . 

• Program Name : The first 25 characters of the program 
name. Only the first i: are passed in the body of the 
object program. 

• Date/Time : The date ar d time at the start of the 
compilation of the current program. 

• Version : The version identification of the compiler. 



o 



« niPlOO LIST3080 ahJUM75 OOiOOtOO mPL 0.<95 

■ llO?2a6ivo«Cu953?«^8-^Oia500000»B5.SS^5Sa7055a?O^OOOOl66b3595350555a202000oaOl5A 

« D80J2iOftOOOO'S90lODOA9300010200208300070b5A002E501589000109710bOCOOOAai505205 

» 680a2iOi702Dl36bOCOOOAai507i7llOOe30<*0008ae8B000006F^OaFriOAUl202B13e800000157 

M aoOb24tOl008d000083005068005b8iOU3602aAOF83002b8B003683005301008B003883003eOl5A 

« flF06?^riUOO?E50)aB9ftOfl?nB7lOfeOCOOriAF20U520550ia8Qnoi^20<»0609005C725205afcaAP500lA 

• Auo7r)C«n0055'>3i^O5S01Su8200r0O0 



Figure 3.2a: Sample Object Prog ram 



>J3 
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3.3 LISTING FORMATS 



All listings are written m logical unit 2. This logical 
unit is used by the opera zing system as SYSOUT and is 
typically blocked, double buffered, and open. 

Listing output is streamei: that is line boundaries have 
no relationship to record boundaries. Line boundaries are 
specified by explicit car -iage return/line feed sequences; 
page boundaries are speci ""ied by explicit form feeds or 
carriage return/line feed 5 , as selected by the E-toggle. 
Listing output may be spo sled to a secondary storage device 
for later printing. 

The listings consist of 3 major components: program, 
symbol table, and summary. The program listing consists 
of 4 subcomponents: sour :e , flags, object, and code. 
All listings share a common page organization and title 
structure. 
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3 . 3.1 I'age Organization 
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h listing page may be formatted for 11x12" sheets, 

B55:xl2" sheets or 7" rolls. Figure 3.3.1a shows the listing 

page layout and the controlling toggles. Note that in 

the short page, full width format the listing may be copied 

directly to S^sxll" paper losing only the block name. 



Fig 3.3.1a 
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hand 
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12 
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20 
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u 
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= 140 characters 



40 (55) 



=51 (66) lines 
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Description 


Stat 
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Format for 
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Of f 




program listing 


Or 
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Format for 


Oi f 




short page 


Or 



Function 

Width = 120 characters (12" @10 per inch) 
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List full line 
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Length = 51 lines iSh" @6 per inch) 



*Area shown inside heavy lines i s 8*5 x 11" 



Figure 3.3. La: -.isting Page Layout 
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3.3.2 Li sting Titles 

Each listing page contains a title. This title is common 
to all listing components. Each page also contains a 
subtitle peculiar to the listing components. 

Reading from left to right the listing title consists of: 

• Program Name : The first 8 characters of the program 
name. Until the program name is encountered, this field 
is blank. To ensure that the program name appears on the 
first title, the program name must appear on the first 
line . 

• Data/Time : The date and time at the start of the 
compilation of the current program. 

• Versio n '■ The version identification of the compiler. 

• Listing Compon ent: The component to which the page 
belongs: Program Listing, Symbol Table, or Program 
Summary . 

• Page : The page number. The page number starts at 1 
at the start of the current program and is common to 
all listing components. 
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3.3.3 Program Listing 



The program listing consists primarily of an annotated source 
listing. Program listing is enabled by the L-toggle. If 
desired, flags, object, aid code are interspersed as they 
are generated. Figure 3.3.3a shows a sample program listing 
with object and code suppr-essed, Figure 3.3.3b a sample 
program listing with flag-, object, and code in evidence. 

Where feasible, the annotation to the left of a source 
line reflects the state of the translation before the 
line is translated, the amotation to the right, the state 
afterwards. Exceptions t ) this rule are noted below. 

Actual listing of a line .s buffered one line. This buffering 
permits toggles to be processed before a line is listed. 
However, if a flag is generated, or code or object listed, 
the buffer is first flushed so that the source line always 
preceeds any derived list ng; in such a case the righthand 
annotation reflects the t anslation state before line trans- 
lation . 

Reading from left to righ \ the fields of the annotated 
source listing are: 

• DEC : Program counter ,n decimal. In some cases the 
location listed points to an SSP instruction that 
precede^s the statement proper. 



HEX: 



Program counter m hexidecimal. 



LINE 



Source record n !mber from start of current program. 



SOURCE : The source li le padded on the right with blanks 
to 80 characters. Nonprinting characters (a 
character whose code i 5 not in the range 32 to 126 
inclusive) are listed ts a period ('.'). 



PL : Do level. The do level is defined as the nesting 
depth of all active bl )cks and groups. A block is a 
procedure block or beg n block. A group is a repeat 
or any type of do. ) T le external procedure name is 
level 0. The do Level is useful in reconciling mismatched 
ends, and in clarifyin] block and group structure. 

If a do case is active the do level field is used to 
specify the do case it ;m and do case nest level. Item and level 
are given for the translation state before line translation 
and are separated by a hyphen ('-'). 
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BN , Block Number : The block number is defined as the 
ordinal count of the most recent block entry. The 
external procedure name is block 0. The block number 
is useful in identifying block boundaries. 

LL, Lex Level : The lex level is defined as the nesting 
depth of all active blocks. The external procedure name 
is lex level 0. The lex level is useful in analyzing 
scoping restrictions. 

BLOCK : The block field gives the first 10 characters 
of the innermost active procedure block. A begin block 
or group does not alter the block field. 






LIST8080 26JUN75 00:00:00 MPL 0,93 
DFC HEX Ll^Jt ----.. ---snuHCE- 



* ** 



PROGRAM 



LISTING 






PAGE I 

OL BN LL 



0000 

0000 

0000 

0000 

0000 

1^ n fl n fl 

0000 

7 0007 

7 0007 

?6 OOlC 

<I0 0028 

U6 002E 

5« 0036 

56 0058 

59 005B 

72 OOUfl 

P4 0053 

P5 0055 



I LIST8090I MAIN OROC; 

2 

i SVSGtT 

a SVSPUT 

5 K 

7 C«l.F 

6 

9 
10 
U 
12 
13 

lU ^UUlit 
15 
16 

17 ENOI 

18 FND LlST«0fl0» 



OCL 



/*** SYSIN TO SYSOUT 80/80 LIST 



***/ 



ExT PROC *ORD, 
EXT PROC, 

a y T c , 

wOHD INITIAL ("0D0A")l 



DO WHILE SySGET(»8UF(n» 80) > 01 
DO Ks80 TO 1 BY -l; 
IP SUP(K5 rs t I 

THEN GO TO t*RITtl 
ENOl 

CALL SVSPUTC»BUF tn, K)> 
CALL SVSPUT(»CPLP» 2)> 



/* READ SYSIN UNTIL EOF 
/* TRIM TRAILING BLANKS 



*/ 
*/ 



/* WRITE SYSOUT, APPEND C^LF */ 



2 
i 
3 
i 
2 
2 
2 
2 
1 




Figure 3.3.3a: Sample Program Listing -- Listing Options Off 






LISTBObO PfrJUNi7=. 00:00100 mpl O.'iS 
DEC -EX LINE SOURCE 



**4 



P H G « A M 



LISTING 



t * * 



PAGE 1 
01 BM LL 



0000 

U J w w 

0000 

onoo 

0000 
0000 



1 L ISTan»0: ^4 I'^J "WQCl 



2 
3 

a 

5 



DCL 



***** ( ) ERROR 67 



/*** S^SIN TO SYS OUT 80/80 LIST 
5 j "PL 0,^3 



SYSGET FXT PROC t^ORD, 

SYSPuT EXT PROC# 

JLiNK JUNK, 

s 

BAD SIZE, i^ORD USED 



**♦/ 



1 


I 


1 


1 


I 


I 


1 


I 


1 


I 


I 


I 



***** Cs) tKWQH 'jV 



JUNK IN UCL STMT, TtXT SKiKHtD TO NEXT 



i UK 



0000 6 K **ORD, 

0000 7 BUE(80) BYTE, 

0000 8 CRLF wo»0 IMITUL ("0D0A'')» 

nO?2a8l90acU'9535a3P50i830000088535''55a7a55U20a0000188535<'b350S55ii20200002015A 



0000 
3 0003 
5 0005 



7 0007 
7 0007 



9 
10 



UO wHiLfc 



5A 0000 SSP 
59 01 FILL 1 

ODOA WORD 3338 

/* READ SYSIN UNTIL EOF 



SYiGfcT ObUF ( n , 80) > 01 

* * 



7 0007 

1 0004 

l« OOOE 

15 OOOF 

19 0013 



SA QQ2E 

5A 002F 

50 150001 

71 

06 OCOOOC 

ai 50 



SSP «fc 

SSP HI 

HARK 21, SYSGET 

LI 

LADR 12,BUF 

L8L 80 



a OC03230fe000059oiOOOA83000102002Ee30007055A002F50158900010971060COOOCi4l505205 

23 0017 * 70 LO 

2a 0018 * ?D GT 

25 0019 * 13 0000 BRF 

/* TPIM TRAILING BLANKS 

28 OOIC * ai 50 LBL 80 

30001E* 71 LI 

31 OOIF * 71 LI 

32 0020 ♦ 10 ^EG 



?8 OOlC 



11 



DO KsRO TO I BY -i; 



33 0021 * 06 09000A LADR 9,K 



*/ 



*/ 



I 


I 


I 


I 


1 


I 


1 


1 


I 



1 1 
1 1 






1 I 



LiSTflOPO i^hj'jf^lb OO'OOtnO MBL 0,93 
OFC HEX LINE SOURCE ■ 



* * * 



p « n G B i M 



LISTING 



* ** 



PAGfc 2 
DL BN LL 



ao 0028 



ab 002E 



12 



13 



IP 



LlN 2.K 

LB 5»eup 

LBL 32 



37 002S * ae 0000 OIB 
BUF(K) ts I > 

ao 0028 * F2 05 

a2 002A * FB OC 

aa 002C * ai 20 

THEN GO TO w«ITE» 

Ub 002E * 2B NE 

<i7 002F * 13 OOnO BRF 
» bOOa23o37O2Dl3«BO0On0Aai50717110nh0<?OO0Aa88no0OO0HF205FBOCal202Hl38RO00O0157 

50 0032 ♦ 57 OOOOOO GOTO O.i^RITE 

5U 0036 la ENO> 

a7 002F ** 13 0ri3fe BRF 5a 

5a 0036 * UA OF DSBB 15 

57 0025 ** as 0038 DIB 56 

5b 0038 15 kWITE:; ^* *^«I^f SYSOUT, APPEND CRLF */ 

s: c c 3 2 ' * 5 "^ ; r " :" ■? » 

a uo052aol008R000083on308«003683003602aAOF83002fe8B0038B500330100P80038«500380l5A 

56 0038 * 5A 002F SSP a7 

S9 003B 16 CALL S VSPUT ( »8UF ( 1) , K)J 

5Q 003B * 50 lao002 

63 003F * 71 

6a ooao * 06 OCOOOC 

68 ooaa * F2 05 

70 OOab * 52 05 

72 OOaS 17 CALL SV SPUT ( •CRLF » 2)1 

72 ooa8 * 50 laooo? 

76 OOaC * 06 09005E 

80 0050 * 72 

81 0051 * 52 05 

83 0053 16 ENOI 

83 0053 * a6 aA 
« 95 062aoao02F50ia8QOnn20B7l060COOOCF20 55 20 55 0ia8'?000209060'9005E7 25205a6aA83001A 

25 0019 ** 13 0055 BRF 85 
85 ^^^^55 19 ENO LIST80ft0» 

65 00b5 * 5a EXIT 

U AC07or8B0055830055nisa82000008 






MARK 20»SYSHUT 

LI 

LADR 12,BUF 
Lt^ 2fK 
CALL 5 

MARK 20,SYSPUT 
LADR 9,CRLF 
L2 
CALL 5 

BRB 7a 



3 1 1 



3 1 1 



1 I 1 



2 I I 



2 1 1 



2 1 1 



1 1 i 










F 1 y u r e 3.3.3b: S amp 1 e Program Listing - - Li s t i ng Op t ion s On 
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3.3.4 Flag Listing 



Sec 3.3.4 



Flags are interspersed in the program listing as they are 
detected. Flag listing is enabled by the F-toggle. If 
the F-toggle is on and the L-toggle (list source program) 
off the current source line is also listed. This feature 
is useful in scanning for errors. Ficfure 3.3.3b includes 
some flags. 

Each flag generates 4 lines of listing: a cursor line, a 
description line, and 2 blank lines. The cursor indicates 
the point in the source line at which the flag was generated 
Reading from left to right the description line consists 
of : 

• Last Line : The last flagged line. If the current flag 
IS the first flag this field is 0. The last line field 
simplifies flag location in a large listing. 

• Severity : The severity of the flag: warning, error, 
blunder, or abort. 

• Number : The code number of the flag. This code is an 
index to the flag descriptions in Appendix D. 

• Description : A brief description of the cause for the 
flag and the compiler response. Cause and response are 
separated by a comma (','). 
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3.3.5 Object Listing 



The object program is interspersed in the program listing 
as it is generated. Object listing is enabled by the 
H-toggle and is exactly the same as the object program 
written on logical unit 4 (see Section 3.2 Object Format). 
This listing is rarely activated. Figure 3.3.3b includes an 
object listing. 



32 Sec 3.3.(. 



3.3.6 Code Listing 



The; translated 32/S instructions are interspersed in the 
program listing as they are generated. Code listing is 
enabled by the C- toggle. This listing is useful in low 
level debugging and for clarifying translation algorithms. 
For better readability, the code listing is indented 
50 spaces in response to the I-toggle. Figure 3.3.3b 
includes a code listing. 

Reading form left to right the code, listing consists of: 

• DEC : Program counter in decimal. 

• HEX : Program counter in hexadec:imal . 

• Program Counter Type : This field distinguishes the 
3 uses of the DEC/HEX program counter fields: 

blank - source 

* - generated in-line instruction 

** - generaxted fixup instruction 

• Numeric Operation Code : The 32/'S instruction operation 
code in hexidecima]. . In the case of data this field 

is blank. 

• Numeric Operand : Up to 4 bytes of operand or data in 
hexidecimal . 

• S iymbolic Operation Code : The 32/S instruction operation 
mnemonic or pseudo-operation. Tne instruction mnemonics 
used are defined in Reference 6. 

• Numeric Operand : The operation code dependent operand 
in decimal. This field is not eilways present. 

• Symbolic Operand : The operation code dependent operand 
as a symbol. This field is not always present; if 
present it is separated from the numeric operand by 

a comiTia (','). 
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3.3.7 Symbol Table 



A symbol table listing follt ws the program listing and is 
enabled by the A-toggle. F gure 3.3.7a shows a sample 
symbol table. 

The symbol table has many uses. For new programs it is 
an aid to finding and elimii ating flags. For old programs 
it aids in maintenance and (ocumentation. In addition, 
the symbol table clarifies .ttribution and scoping. 

Each symbol defined or refe^ enced in the program is listed 
in the symbol table in alphabetical order. Literallys 
and builtins qualify as sym} ols, but keywords do not. 



Each symbol 
with the occ 
label is fir 
potentially 
separate ent 
is potential 
is the ultirv' 
are scatterc 
code is alwa 
results in t 
X of which c 



is represented t 
asional exceptii 
St encountered 
satisfied in mo 
ry is made for 
ly defined. Th- 
ate defini-ion 
d among th(.> mul 
ys correct. Fo 
wo entries in t 
nc will remain 



■y a single symbol table entry 
n of forward labels. If a 
n a goto statement and is 
e than one block , then a 
ach block in which the label 

entry at the lowest lex level 
f the label and the references 
ijle entries. The generated 

example, the following program 
.e symbol table for the label 
;nde fined : 



p : PROC ; 

GO x; 

q : PROC ; 
GO x; 

END q; 
x: 
END p; 

Reading from left to right he symbol table listing consists 
of: 



NAME : The first 12 char icters of the symbol name. If 
the name has more than 1' characters, a plus sign ('+') 
is appended to the name. 

DEF: Th€^ source prs^gram record number on which the symbol 
is define^d. If the symb .1 is never defined, 4 stars (•****') 
are displayed; exceot fo / built-ins this is an error. For 
procedures that acquire ~,ome of their attributes from a declare 
statement and some from i procedure statement, the declare 
statement is used to derive the definition line. This 
field may be viewed as t ;e first element on the list of 
ref erencf^s . 
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BN_: The block number of the block in v/hich the symbol 
is defined. 

LIj^: The lex level at which the symbol is defined. 

STj The definition state of the symlbol. If a symbol 
is completely defined this field is blank, otherwise 
2 stars ('**') are inserted, except for forward labels 
that are potentially defined in nore than one block, this 
-LS an error. Undefined symbols nay be spotted by scanning 
this field for non-blank entries. 

DEC/HEX : The decimal and hexadecimal values of the symbol. 
The meaning of the value is conditioned by symbol class 
as described below. 

CLASS : The compiler division of symJDol types. The 
possible classes are: 



Class 


Description 






Use of Value Field 




AUTO 
STATIC 

PARAMETER 
COgSTANT 


Automatic variable 
Static variable 

Parameter 
Constant 


Stack location, EP relative 
Internal: Static location 
External: External data sequence 

number 
Stack location, EP relative 
Program location, PB relative 




CBASE 
VBASE 


Constant based variable 
Variable bassed variable 




Base value, absolute 

Symbol table address of base 




PROCEDUIiE 
MAIN 

INTERRUI'T 


Ordinary procedure 
Ma in procedure 

Interrupt procedure 


' 


< 


Internal: Program location, PB relatix'e 
External: External procedure sequence 
number or program location 
of if external procedure 
head 




MICRO 
BUILTIN 


Micro coded procedure 
Builtin procedure 


Microstore entry location 
Builtin code 




LABEL 

DOLABEL 

BEGIN 


Ordinary label 

Label on a group head 

Label on a begin block 

head 


Program location, PB relative 
Program location, PB relative 
Program location, PB relative 




LITERALLY 
?? 


Literally 

Unclassified symbol 
(Appears only if job is 
aborted) 


Length, of text 
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SCOPE : The scope of a symbol 



Scope 



I 
EXT 



Description 



Internal 
External 



When not explicitly supplied, this attribute is always 
defined by the compiler according to the rules of the 
language . 

SIZE : The size of a s /mbol (specified only where 
meaningful) : 



Size 


Descr 


Lption 


BYTE 
WORD 
DOUBLE 


Byte 
Word 
Double 


PTR B 
PTR W 
PTR D 


Pointer 
Pointer 
Pointer 

Bit (1) 
Bit (2) 
Bit (4) 


o byte 
o word 
o double 


BIT 1 
BIT 2 
BIT 4 



SET : Indicates i *" the symbol is preset before the 
procedure is executed: 



Set 



YES 
Blank 



Descr ption 



Symbo.. pre iet 

Not preset or not meaningful 



DIM: 



The dimension of a symbol: 



Dimension 



SCALR 
ARRAY 
number 
blank 



Descr ption 



Scalar var able 

Array vari, ble whose dimension was not retained 

Array vari, ble of specified dimension 

Not moaninMtul 
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REFERENCES: The source program record, numbers on which the 
symbol is referenced. The definition field may be viewed 
as the first item on this list. Possible entries are: 



Reference 



nuri±)er 
- NONE - 
SUPPRESSED 



Description 



Source program record nmnber of reference 

No references 

Some references may have been suppressed by 

the R-toggle 



^ 



LlSTBOeO a<iJUN75 OOtOOJOO MPL C^i 
NAME DE.F 9M LL ST DEC HEX 

BUF 
CWlF 



LISTeoPO 
SVSGET 
SYSPUT 
•^HlTfc 



6 


1 


1 


10 


0004 


AUTO 


I 


7 


1 


1 


<?2 


005C 


AUTO 


I 



1 








3 


1 





4 


\ 





l<i 


1 


1 



0000 

1 0001 

2 0002 
Sb 0038 



*** SYMBOL TABLE 

CLASS SCOPE SIZE SET DIM 

RYTE 80 

i*ORO YES SCALR 

^ -< p f> c r A I p 



MAIN 

PHOCEOUHE 

PROCEDUkE 

LAPEL 



EXT 

EXT 

EXT 

I 



WORO 






■J 



9 

16 

1 (^ 

18 

9 

15 

12 



*** PAGE 

HEFEREKJCES 

11 15 
1 1 '.5 



16 



Figure 3.3.7a: Sample Symbol Table 
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3.3.8 Progr a m Summary 

A program summary follows the symbol table listing and is 
enabled by the Y-toggle. Figure 3.3.8a shows a sample 
program summary. 

The summary is useful in checking for program flags, 
summarizing the source and object programs, and optimizing 
compiler memory use. 

The program summary consists of 7 parts: flags, source 
program, object program, symbol table, compiler stack, 
toggles, and flag link. 

Flags -- 

• ABO RTS : The number of compiler aborts. This number 
includes any aborts suppressed by the X- toggle and, hence, 
may be more than 1 . 

• BLU NDERS : The number of program blunders. If there are 

any blunders the object program (0-toggle) and object listing 
(H-toggle) will be turned off, unless suppressed by the 
D- toggle. There is no way to suppress blunders. 



• ERR ORS : The number of program errors. There is no way to 
suppress errors. 

• WAR MINGS : The number of program warnings. This number 
includes any warnings suppressed with the W- toggle. 

Source Program — 

• J^INES : The number of lines (records) in the source program. 

• ST ATEMENTS : The number of statements (delimiting semicolons 

(';')) in the source program. 

• BLO CKS : The number of blocks in the source program. 

• LEX DEPTH : The maximum lex depth acheived. 
Object Program -- 

• BYT ES PROGRAjyi : The number of bytes in the object program 
exclusive of stack requirements. 

• BYTES STATIC : The number of static bytes required by the 
object program. This value is always rounded up to a word 
boundary and is the value passed to the loader. 
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BYTES STACK (1) : The maximum stack depth achieved by 

the outer procedure blojk. It is the sum of the automatic 

data allocation and the scratch required for instruction 

execution. 

OBJECT RECORDS : The nunber of object records even if 
object IS suppressed by the 0-toggle. 



Symbol Table — 

• BYTES USED : The number of bytes in the symbol table used. 

• BYTES SPARE : The number of bytes in the symbol table 
unused. 

• SYMBOLS : The number of symbols of all types. 

• REFERENCES : The number of references to all symbols 
even if references are suppressed with the R-toggle. 

The sum of the BYTES US ::D and the BYTES SPARE is a 
constant. If symbol taole space is a problem the 
symbol table summary ca i be used to determine corrective 
action. See Figure 2.3a for symbol table costs. 

Compiler Stack -- 

• BYTES USED : The number of bytes in the compiler stack 
used. 

• BYTES SPARE : The number of bytes in the compiler stack 
unused. 

• ACCESSE S : The number c r" primary accesses to the hash 
table (used to address the symbol table). 

• COLLISIONS : The numtier of secondary accesses to the 
hash table due to hashi ig collisions. 

The sura of BYTES USED a ;id BYTES SPARE is a constant. 
If stack space is a proolem the compiler stack summary 
can be used to monitor stack use. See Figure 2.3a 
for stack costs. Hash table use can be monitored with 
the hash table summary. So long as symbol names are 
not highly pathological and the hash table is less than 
90% full (Warning 39 has not been generated) the number 
of collisions should renain, at worst, a few times the 
number of accesses. If the number of collisions exceeds 
10 times the number of accesses and there are no 
extenuating circumstances, compiler performance will 
start to degrade and th e situation should be brought to 
the attention of Microdita. 
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Toggle Summary -- 

• TOGGLES OFF : All toggles that are off when the program 
ends, listed in alphabetical order, 

• TOGGLES ON : All toggles that are on when the program 
ends, listed in alphabetical order,. 



Fl£ig Link -- 

The final item in the program suimmary is a link to the 
line number of the last flag, excluding suppressed warnings 
If there are no such flags the message given is: 

N O FLAGS 






LISTPOeO 26JUN75 OOtrtOtOO ►^PL 0,'?'5 *** PROGRAM SUMMARY *** PAGe" 



''LAGS SOURCE PROGRAM OBJECT PROGRAM SYMyot TABLE COMPKE" STACK 



TOGGLES OFFf 
TOGGLES OM 



t?CDFHMOQUV«^X 
ARFIl, MPRSY7 



^ F 1. A Ci S 



Figure 3.3.8a: Sample Program Summary 



BLUNDERS n STATEMENTS BYTES STATIC 8afe2 BYTES SPA»E 835 BYTES SPARE 

EHRHRS 1 BLOCKS 106 BYTES STACKd) 7 SYMBOLS 53 ACCESSES 

EARNINGS 1 LEXOEPTH 7 OBJECT kECORDS 12 REFERENCES COLLISIONS 
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4.0 DIAGNOSTICS 



Error conditions that occur while the compiler is running 
fall in three areas: operating system errors, compiler 
errors, and hardware errors. 

Operating system errors depend on the operating system in 
use and are discussed in detail in the appropriate operating 
system reference manual. 

Compiler errors are either detected or undetected; detected 
errors are called flags w'-iich are in turn classified as 
warnings, errors, blunders, and aborts. Internal compiler 
operation is monitored for consistency and any fault 
reported as a foul. On o:casion, some hardware problems 
may not be completely dia jnosed. 
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4 . 1 FLAGS : DETECTED ERRORS 

Whenever feasible, compilation errors are detected and an 
explicit diagnostic is issued in discursive form. The 
generic term flag is used to refer to detected errors which 
are classified in four levels according to their severity. 
The four flag classes, in order of mcreeising severity 
are: warnings, errors, blunders, and aborts. The attributes 
of the flag classes are shown in Figure 4.1a. The highest 
severity flag that occurs is noted xn the; object program 
for later job control by the operating system. 

Warnings may be suppressed by means of the W-toggle to 
improve listing appearance in cases where the warnings are 
anticipated. The routine suppression of warnings is a 
dangeirous practice. 

An error results in a suspect object program, a blunder in 
a faulty object program. However, the program may still be 
executable depending on the circumstances. Once again, the 
routine use of object programs that contain errors or blunders 
is a dangerous practice. Object program generation is suppressed 
after a blunder unless object suppression is disabled by use 
of the D- toggle. 

Compilation is usually discontinued after an abort; end- 
of-program and end-of--job activity ::s attempted and a return 
is made to the operating system. However, aborts may be 
suppressed (although the diagnostic is still issued) by 
use of the X- toggle; the compiler response to a suppressed 
abort is given in the description of each abort in Appendix D. 

Flags are inserted in-line in the program listing ats they 
occur. In addition, aborts are listed on the console. 
The flag listing format is described in Section 3.3.4. 
Flags are listed by number in Appendix B, by severity in 
Appendix C, and are described in detail in Appendix D. 
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Fig 4 . la 



Flag 


Loader 


Compilation 


Source 


Object 


Compiler 


Related 


Class 


Code 


Continuation 


Program 


Program 


Integrity 


Toggles 


Warning 


4 


Yes 


Suspect 


OK 


OK 


W 


Error 


8 


Yes 


Bad 


Suspect 


OK 


-- 


Blunder 


12 


Yes 


Fad 


Bad 


OK 


D,H,0 


Abort 


— 


No 


Suspect 


Suspect 


1 
Suspect ; 


X 



Figure 4.1a: Flag Classes 
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4.2 UNDETECTED ERRORS 



Some program errors go undetected by the compiler either 
because detection is not feasible or is not possible. 
Good programming practice will reduce the occurrence of 
undetected errors. The major undetected errors are listed 
below in no particular order. 

• Do Case Range : There is no compiler or hardware 
protection against a do case index exceeding the range 
of the supplied cases. It is good coding practice to 
protect against range violation. 

• S ubscript Range : Likewise, there is no compiler or 
aardwaro protection against a subscript exceeding the 
declared dimension of an array. Indeed, it is common 
practice to declare external arrays to have dimension 
in all but a single routine. Still, it is good 

coding practice to guard against subscript range violation. 

• D angling Else : The language associates an else clause 

with the innermost unmatched then-clause. It is good coding 
practice to physically format t:-e source program to 
ensure that this association is correct. 

• Object Cards in Source : A source record with a pound 
sign ( ' # ' ) in the first byte is passed to the object 
program directly. This feature is activated by the 
S-toggle and it is good practice to deactivate it when 
aot in use lest legitimate sour:.;e be unadvertantly missed. 

• Non-Distinct Symbol References : As a block structured 
language, MPL allows a symbol defined in an outer block 
to be used in an inner block. Indeed, this is the 
prominent feature of block stru:;turing. However, in the 
case of scratch variables this feature is generally 

a liabxlity as the use of the scratch variables gets 
inadvertantly multiplexed. It is good coding practice 
to define scratch variables separately for each block. 

• Forward Labels: There? is one circumstance where the 



current compiler, that makes only a single pass over the 
source, fails to detect a scopi'ig violation. 
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Consider the program: 

p: PROC; 

DCL X WORD; 
q: PROC; 
X = 1; 



x: GO x; 

END q; 
END p; 

The multiple use of x as a variable and label goes undetected. 
This circumstance is rare and, inasmuch as the correct code 
is generated, is only of academic interest. 

• Redefined Literallys : Tie compiler performs literally 
text substitution before symbol processing. Thus, in 

spite of the fact that laterally symbols follow the ordinary 
scoping rules and may be redefined in an inner block, in 
effect redefinition is nc t possible. The following example 
illustrates this problem 

p: PROC; 

DCL X LITERALLY '$*%#'; 

q: PROC (x) ; 
DCL X WORD; 

END q; 
END p; 

The lega] redefinition o x is never honored. 

• Initial Value Range : Ca e should be taken to assure that 
the interpretation of co istant precision is appropriate 

to the use at hand; lest constant truncation go undetected. 
See Subsection 5.2.4. 

• Distribution of Initial : .ists Over Namelists : When an 
initial list is applied o a namelist the length of the 
initial list is validated against the aggregate length of 
the namelist. The prope - association of each name to each 
part of the initial list cannot be validated by the compiler. 

• Interative Do Index : Th ■ index of an interative do 

(or repeat) is a signed vord variable. Thus, the use of 
positive indicies over 3 ',767 requires the use of a 
do-while construct. 
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Opeirand Size Alteration : In evaluating an expression the 
size of an operand may be automatically altered according 
to the translation algorithms of Section 5.5. Care must 
be taken to ensure that such size alteration preserves 
the sense of the desired operation. For example, the logical 
comparisons (LEQ, etc.) convert both operands to word size 
and any decision based on the high-order part of a double 
size operand will be erroneous. 
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4.3 



FOULS: CONSISTENCY CHECK;: 



The compiler contains many internal consistency checks, 
called fouls , to facilitate compiler checkout and 
maintenance. For example fouls are used to guard against 
faulty symbol table use. A foul will never occur if the 
compiler and hardware are functioning properly. Should 
a foul persist, contact M:crodata. 

A list of fouls is given ;n Appendix G. A foul results 
in a message being issued on both the console and program 
listing in the form: 

'XXXX' FOUL 



where 'XXXX' represents t? e type of foul 
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4.4 HARDWARE CONSIDERATIONS 



There are certain hardware characteristics of the 32/S processor 
that may lead to undiagnosed errors, or unreported operational 
problems. This section is a discussion of these hardware 
aspects, indicating how they are exhibited and how they may 
be minimized. 

• Memory Validity : On a 32/S not -equipped with memory parity, 
failing memory may be undetected. The symptoms of failing 
memory are any unexplained compiler behavior. On a machine 
equipped with parity, the compil-er may be used to validate 
memory. 

The compiler is capable of checking memory validity in 
the program space it occupies: from PB (program base) 
to PB+PL (program, length) . The default toggle settings 
check memory at the end of each program. By use of the 
V- toggle, memory validity nay be checked each source 
record. (Memory checking is too time consuming to do this 
as a matter of course.) 

Should bad memory be a problem, place the suspect memories 
between PB and PB+PL and ensure that the M-toggle and 
V- toggles are on, and hardware parity is disabled. A 
f£iulty memory is indicated by a console and listing message: 

BAD MEMORY IN MODULE mm, ROW rr , BIT bb , BITS xx 

where (mm,rr,bb) jointly specify a faulty memory chip. 
If a multiple bit error has occurred, (xx) will have 
more than one bit on and the rightmost will be decoded 
as (mm,rr,bb) . Bad memory also I'esults in Abort 30. 

• Stack Overflow : On a 3 2/S not ec[uipped with stack 
overflow protection, stack overf].ow will go undiagnosed 
until program end. The stack ovt^rflows into the symbol 
teible; thus the symptoms of stack overflow are unexpected 
syiribol table behavior, usually a foul or a loop in a 
re^ference chain. 

The compiler checks for stack overflow at program end, 
and if the V- toggle is on, each source record. Stack 
overflow results in Abort 36. 

The compiler stack size has been chosen so that any 
ordinary progr'am is accommodated. See; Section 2.3 
for a discussion of compiler stack use. 
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• Misread Source Data : Scurce devices occasionally misread 
data. The entropy of MFL is low enough so that most 
instances of misread source data cause computer flags. 

• Miswritten Object Data : Object devices occasionally misread 
data. Object records are checksummed and sequenced so that 
all instances of miswritten object data are detected later 
by the loader. 
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5.0 



TRANSLATION ALGORITHMS 



The translation of source p 
specified by a set of trans 
subject of the present chap 
the language as actually im 
algorithms are useful whene 
code is required. Should t 
unclear or incomplete, the 
displayed by use of the C-t 
loader directives displayed 



rogram to object program is 
lation algorithms that are the 
ter. These algorithms define 
;jleraented. Translation 
/er knowledge of the generated 
lese algorithms be found 
generated code may be 
^ggle, and the generated 
by use of the H-toggle. 



An analytic (top-down) approach is taken in presenting 
the translation algorithms: blocks are discussed first 
and operands last. Some algorithms show the direct 
translation of MPL statement to loader directives. 
Other algorithms show the translation of MPL statements 
to 32/S instructions. The translation of 32/S instructions 
to loader directives, and tie loader directives themselves, 
are discussed in the final sections of this chapter. 

Source text may be passed cirectly to the object program, 
bypassing all translation a:tivity, by use of the #-toggle 
as discussed in Appendix F. This is the only mechanism 
available to generate arbitrary instruction sequences. 
There is no mechanism in the language to generate 
unimplemented or unused instructions, or instruction 
sequences that are not the product of an algorithm in 
this chapter. The locatior counters maintained by the 
compiler during translatior are: 



Mnemonic 


Name 


Number 


Initial Value 


pc 


Program Counter 


1 





xc 


Static Counter 


1 





sc 


Stack Counter 


1 per block 


8 



The program and static cour ters are common to all blocks 
within an external procedui g , start at 0, and increase 
monotonically as translation progresses. The stack counter 
is unique to each block anc starts at 8 to leave room for 
the stack mark. The stack counter moves up and down as 
translation progresses, returning to its initial state at 
the end of each block; each 32/S instruction has an 
associated stack increment (or decrement) . 

In the code sequences that follow, a box in the place of an 
instruction ( | | ) r<;pres'nts the generated code for the 
entity enclosed in tho box 



52 Sec 5.1 



The block translation algorithms are shown in Figure 5.1a, 

Blocks are of 4 types: main, procedure, interrupt, and 
begin. A block may be internal or external. External 
blocks, that is programs, are bounded by the begin and 
end loader directives. Internal begin blocks are entered 
with a BENT instruction; other internal blocks are 
skipped over with a BRA instruction. A block is exited 
with one of the 3 exit instructions as determined by 
the block type. 
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Block Type 


Scope 


Entry 
Loader 
Directive s 


Exit 
Loader 
Directive 


Entry 32/S 
Instruction 


Exit 32/S 
Instruction 


Main 


External 


"81' , "9{ " 


"82" 
"82" 

"82" 


-- 


EXIT 


Procedure 


External 
Internal 


"81", "8' " 
"81", "8f " 


BRA <end> 
BRA <end> 


EXIT 
EXIT 

IXIT 
IXIT 


Interrupt 


External 
Internal 


Begin 


Internal 


BENT 


EXIT 



Figure 5.1a: Block Translation Algorithms 
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5.2 DECLARATIONS 



Symt)ol declarations are contained in procedure heads, labels, 
and declaration statements. The attributes of a symbol are 
stored in the symbol table. The declaration process may be 
viewed as the translation of declarations into attributes 
in the symbol table. (The classification of symbols is 
discussed in conjunction with the symbol table listing in 
Section 3.3.7.) 

The only declarations that result in loader directives are 
those for external symbols. The only declarations that 
res\ilt in 32/S instructions are thc;.se for labels and initial 
valueis . 

In the case of a symlsol that is a Label, parameter, or 
procedure, the complete declaration may be fragmented in 
two parts. In such cases the symbol is marked as undefined 
until all attributes are in hand. A syrrJool that is undefined 
when used (which is illegal) results in automatic declaration 
appropriate to the context in which the symbol is used. 

A procedure head declaration defines the entry name. In 
the case of a forward procedure, the procedure head is the 
second half of a fragmented declarcJtion , and the size 
atti-ibute must agree with that previously declared. The 
generated code and loader directives issued for a procedure 
head are discussed in conjunction v;ith block translation 
in Se:ction 5.1. 

A label declaration defines the label name. In the case 
of a forward label, the label declaration is the second 
half of a fragmented declaration. A label is reclassified 
as a do label or begin label if it is subsequently found 
to £ippear on a group or begin. Thi.s subclassif ication of 
labels is used to mechanize labeled-end checking. A label 
generates an SSP instruction to purge any iteration context 
from the stack should the label be j.nvoked from within an 
iterative group: 

SSP (sc-2)/2 



The declaration-statement declarations form the bulk of the 
declarations. In the case of parameters, the declaration 
statement is the second half of a fragmented declaration; 
in the case of forward procedures, the first half. Each 
name is entered in the symbo], table; the symbol class and 
all attributes, except value, are filled in from the 
attributes appearing in the declaration statement. As 
each external procedure is encountered an "88" loader 
directive is issued; as each literally is encountered the 
literally text is saved in the symJcol table. 
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5.2.1 Value Allocation 



The value attribute is determined when all declaration 
statements are in hand, that is, when the first non-declaration 
statement is encountered. (It is necessary to delay address 
allocation to this time to accommodate parameters which 
must be allocated first, but need not be declared first.) 
Figure 5.2a shows the use and value of the value attribute. 
Before the value is assigned it is rounded up to a word 
boundary, if appropriate, as indicated in the word alignment 
column. After the value is assigned it is incremented by 
the value increment column. 

At the same time values are assigned, external variables 
are delivered to the loader with a series of "8F" directives. 
The extent field of this directive uses the value increment of 
Figure 5.2. La. 

Following a declaration set , an SSP instruction is issued 
to skip over the stack mark, initial values, variables, 
and parameters: 

SSP {sc-l)/2 



and, finally the stack counter, sc , rounded up to a word 
boundary in preparation for future stack activity. 











First 


Word 


Value 


Class 


Scope 


Size 


Value 


Value 


Alignment 


Increment 


Procedure 


External 


-- 


External procedure 
sequence number 


1 


-- 


1 




Internal 


— 


DC 

h 





_ _ 


~~ 


Static 


External 


-- 


External variable 
seauence number 


1 


— 


1 




Internal 


— 


xc 





Except byte 


See automatic 


Constant 


-- 




pc 





Except byte 


See automatic 


Parameter 


-- 


Double 
Other 


sc 
sc 


8 


Yes 


4 
2 


Automatic 


— 


Byte 


8 


Only if first 


1*D 












of namelisL 














and initialized 






Word 






Yes 


2*D 






Double 






Yes 


4*D 






Bit(l) 






Yes 


(l*D+7)/8 






Bit(2) 






Yes 


(2*0+7) /8 






Bit(4) 






Yes 


(4*D+7)/8 






Pointer 






Yes 


2*D 



pc - program counter 
xc - static counter 
sc - stack counter 
D - dimension+1 



Figure 5.2.1a: Value Attribute for Symbols 
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5.2.2 Preset Variables 

There are two types of preset variables: constant variables 
(constants) and initialized variables (initialized automatic 
variables) . Constants require less execution time and 
space but may not be addressed as freely as initialized 
variables. There are two ways of specifying the preset 
values: with an initial string or with an initial list, 
as discussed in the next two subsections. These sections 
contain examples of preset variable translation. 

Constant variable text appears only in program space and 
never in the stack. The text is inserted in program space 
, and skipped over with a branch instruction. A new branch 
is issued if the constant set is broken by an initial 
variable. A BYTE pseudo-ir struction is issued, if necessary, 
to align a constant of wore or double size on a word boundary. 

Initialized variable text c ppears in program space and 
is moved to the stack each time the procedure is entered. 
Data is moved from program space to stack space with FILL 
instructions. A SSP instruction is also generated for 
each name list to route the FILL data to the proper stack 
location : 

SSP (sc-2)/2 

where sc is stack address cf the first item of the name list. 
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5.2.3 Initial Strings 



Initial text that appears as a string is converted to an 
infix format. (A string appearing as an element in an 
initial value list is used without alteration.) 

The infix string format is: 



length' 


t^ 


e^ 


x^ 


t'- 



0^ 



The < length- indicates the number of characters in the 
<text>. Note that a string is restricted to 255 bytes. 
A is appended to the string, if necessary, to pad out the 
text for a FILL instruction to a full v/ord. The total 
length of the converted string is: 



Preset Type 



Constant 



Initial 



Length Byte 



Odd 
Even 



Padded 



No 



No 
Yes 



Total Length 



<length>+l 



<length>+l 
<length>+2 



If the first or only name of the name list is not an array the 
variable is changed to an array and the < length > inserted as 
the dimension; if the variable is an array, the dimension 
is validated against the string length: the length must 
exactly match for a constant variable and may not be longer 
for an initialized variable. The sJ-ze attribute must be 
BYTE or a flag is generated. 



Should an initial str 
translation depends o 
If it is not, the sti: 
dimension of the firs 
initialized. If a di: 
the string length, th 
subsequent variables 
for a constant variab 
and is less than the 
spilL into the trail i 
and the length field 
<text> character. 



ing be applied 
n whether the 
ing will exact 
t name and sub 
mension is sup 
e tail of the 
are not initia 
le. Finally, 
string length, 
ng variables; < 
for subsequent 



to a name list the 
first name is dimensioned, 
ly match the created 
sequent names will not be 
plied and is more than 
first variable, and all 
lized; a flag is generated 
if a dimension is supplied 

the string text will 
a flag is always generated 

variiibles contains a 
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The code generated for an iiitial string is a series of 
DBLE pseudo-instructions. If the total length is not a 
multiple of 4, the WORD and BYTE pseudo-instructions are 
used for the final bytes. Tor an initial variable, a FILL 
instruction is inserted every 16 words; the final FILL 
may have a count of less thiin 16. 

The example below illustrates initial string translation: 



PROC; DCL /* &C */ 
A BYTE CONSTANT 'A^C 



B(l ) BYTE CONSTANT^ 
C BYTE INITIAL 



0000 * 47 0000 BRA 

3 0003 * 03414243 DBLE 545084'-;l 

7 0007 * 0127 WORD 295 

0000 ** 47 0009 BRA 9 

93009* 5 A 0000 SSP 

12 OOOC * 59 01 FILL 1 

1400 0E* 0000 VJORD 

D(99) BYTE INITIAL ' 1 2 34 56 7 89M2 34 56 789B 1 2 34 56 7 8 9C 1 2 ' ; 

16 0010 * 5A 0000 SSP 

19 0013 * 59 10 FILL 16 

21 0015 * 20313233 DBLE 540095027 

25 0019 * 34353637 DBLE 875902519 

29 OOID * 38394131 DBLE 943276337 

33 0021 * 32333435 DBLE 842216501 

37 0025 * 36373839 DBLE 909588537 

41 0029 * 42313233 DBLE 1110520371 

45 002D * 34353637 DBLE 875902519 

49 0031 * 38394331 DBLE 943276849 

53 0035 * 59 01 FILL 1 

55 0037 * 3200 WORD 12800 
END P; 

9 0009 ** 5A 0003 SSP 3 

16 0010 ** 5A 0004 SSP 4 

57 0039 * 5A 0036 SSP 54 

60 003C * 54 EXIT 
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Initial Lists 



Initial text that appears in a list is packed into a buffer 
whose elements correspond to the dec:lared size: double, 
word, byte, bit(4), bit(2), or bit(l)- Pointers are 
treated as word; after packing, bits are treated as byte. 
The buffer is padded with ' s to the next word boundary. 
There is no limit to the length of ein initial list. 

If ar initial list is applied to a name list, the first 
name list element corresponds to the first initial list 
element, the second to the second, and so forth. Should 
the name list contain arrays, each array element qualifies 
as a name list element. 



For a constant variable name list, the aggregate number of 
elements in the name list must exact:ly match the number of 
elements in the initial list. For £in initialized variable 
name list, the initial list may not be longer. 

list is inseirted in the element 
t£int magnitude is first evaluated 
ininary overflow flag is 
s more ■t:han 32 bits (leading 
acter string has more than 4 
as more than 31 magnitude bits 
cant) . The constant sign, 

complement arithmetic. The 
ed in the element buffer 

An overflow flag is generated 

not ha\''e the: same sign. 



Each constant of the 


initial 


buffer as 


follows. The cons 


in 32 bit 


precision. 


A prel 


generated 


if a bit St 


ring ha 


' s are si 


gnificant) , 


a char 


bytes, or 


a decimal n 


umber h 


(leading 


' s are not 


signifi 


if ar y , is 


applied using 2's 


32 bit result is then 


insert 


trunc'ating 


high-order 


bits. 


if all the 


truncated 


bits do 



This interpretation of precisj.on tre;ats a. constant as a 
magnitude nunaber whole: value may be represented with a 
signed number. Since decimal constEmts in expressions are 
strictly 2's complement (see Section 5.7), care must be 
exercised as shown in the folJ^owing examples of constant 
translation in initial lists: 



External Value 


Declared 
Variable Size 


Internal Value 


Flagged 


Implicit 
Expression Size 


4 
-1 

eoooo 


Bit (2) 
Bit (4) 
WORD 


II r II 

":e;a6 0" 


Yes 

No 

No ( : ) 


Word 
Word 
Double 
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The code generated for an ir itial list is a series of 
DBLE, WORD, or BYTE pseudo-i nstruction. For an initial 
variable, a FILL instructior is inserted every 16 words; 
the final FILL may have a cc unt of less than 16 and may be 
padded with an extra byte ol to fill out the final word. 

The example below illustrates initial list translation: 



PROC; DCL /* &C */ 
A BYTE CONSTANT (1 ) 



B(l ) WORD INITIAL (2, 3) 



(CR, LF ) BYTE INITIAL ("OD", 



D(2) BIT (2) CONSTA^IT(0, 1 



E(99) BYTE INITIAL ('A' 



END P; 






0000 


* 


47 


0000 


3 


0003 


* 




01 





0000 


* * 


47 


0004 


4 


0004 


* 


5 A 


0000 


7 


0007 


* 


59 


02 


9 


0009 


* 




0002 


11 


OOOB 


* 




0003 


"OA") , 








13 


OOOD 


* 


5A 


0000 


16 


0010 


* 


59 


01 


18 


0012 


* 




OD 


19 


0013 


* 




OA 


2), 


p 








20 


0014 


* 


47 


0000 


23 


0017 


* 




00 


24 


0018 


* 




18 


B' , 


, 'C'] 


1 ; 






20 


0014 


* * 


47 


0019 


25 


0019 


* 


5A 


0000 


28 


OOIC 


* 


59 


02 


30 


OOIE 


* 




41 


31 


OOIF 


* 




42 


32 


0020 


* 




43 


33 


0021 


* 




00 


4 


0004 


* * 


5A 


0003 


13 


OOOD 


* *• 


5A 


0005 


25 


0019 


* * 


5A 


0006 


34 


0022 


* 


5A 


0038 


37 


0025 


* 


54 





BRA 





BYTE 


1 


BRA 


4 


SSP 





FILL 


2 


WORD 


2 


WORD 


3 


SSP 





FILL 


1 


BYTE 


13 


BYTE 


10 


BRA 





BYTE 





BYTE 


24 


BRA 


25 


SSP 





FILL 


2 


BYTE 


65 


BYTE 


65 


BYTE 


67 


BYTE 





SSP 


3 


SSP 


5 


SSP 


6 


SSP 


56 


EXIT 





62 



Sec 5. 3 



5.3 



GROUPS 



There are 6 grouping statements: simple do, repeat, do 
forever, do while, do iterative, and do case. The simple 
do generates no code. All others generate some code for 
the group head and some code for the matching group end. 
The do case also genereates code for each enclosed case 
(block sentence) . 

In the algorithms in this section it is understood that all 
expressions that result in double size are converted to 
word size with a SNGL instruction. Further, should the 
distance of a backward branch exceed 2 54 bytes, the long 
foriri, is substituted for the short form shown: DBL for DEB, 
BRA for BRB, and DSBL for DSBB. 



REPEAT exp TIMES 











exp 
BRA 


y 


X 


body 





DBB 



DO FOREVER: 



x 



body 
BRB X 



DO WHILE exp : 
X exp I 

BRF y 



bodyj 
BRB X 
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DO ref = expl TO exp2 BY exp3: 



expl 




exp2 




sxp3 




LADR 
DIB 


ref 

y 


body 





DSBB 



If the increment is missing, a Ll instruction is substituted 
for the evaluation of 'exp3-. 



DO 


CASE exp 












exp 






CASE 


cO 




:ase 


cl 


BTOS 
case 1 



BTOS 



cn 



case n 



X 



BTOS 

NOP 

ADDR cn 



X 



ADDR 
ADDR 



Cl 
cO 



The NOP instruction at the lead of the case branch table 
is generated only if required to force the table to a 
word boundary. 



6 4 
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STATEMENTS 



There are only 6 true statements in MPL if blocks, groups, and 
declarations are considered separately. These are treated in 
this section in alphabetical order: assignment, call, go- to, 

if, null, and return. 

Assignment Statement -- 

There are 4 flavors of the assignment statement: regular, 
multiple, embedded, and increment. The last 3 require an 
expression of size word (and a storage reference of size word) . 
If the expression results in size double, a SNGL instruction, 
not shown below, is generated; if the storage reference is not 
of size word, a flag is generated. 

• R egular ref = exp : 



[e2S£_ 



store 



The <ref> store is in detail in Section 5.6.3. 



M a Itiple, refO 



refl 



re f n 



exp 



exp 



STWN 



ref n 



STWN 
STW 



refl 
refO 



Embedded, ref := exp : 



exp 



STWN exp 
• I ncrement, ref +=- e xp : 



exp 



AWM 



ref 



Call Statement -- 

The t:all statement is discussed in conjunction with procedure 
referesnces in Section 5.7. 



Go-to Statement -- 

A go-to statement generates a GOTO ].nstruction. 
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If Statement -- 

An if statement has slightly different translation depending 
on the presence of an else init: 

• If exp THEN unit : 



exp 



BRF 



unit 



X 

If exp THEN unitl ELSE ur it2 : 

X 



exp 




BRF 


ani 


tl 


BRA 


juni 


b2 



X 

y 

Null statement -- 

The null statement generates no code. 

Return Statement -- 

The return statement generates an EXIT instruction unless the 
containing procedure block js an interrupt procedure in which 
case an IXIT is used. A return statment in a begin block behaves 
as if the return statement vere in the containing procedure block. 

Should the return stat€?ment contain an expression, the expression 
is evaluated and converted to the declared size of the current 
procedure. The conversion 3nstructions generated are: 

Proc edure Size 



Expression 
Size 


Byte 


Word 


Double 


Word 


LBL "FF" 

AND 




DBLl 


Double 


SNGL 
LBL "FF" 
AND 


SNGL 


— 
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The following program illustrates statement translation; 



P: PROG BYTE; /* SC */ 
X: BEGIN; DCL (A,B,C) WORD; 



A = 1; 



A : = B : = C : = 2 ; 



A = (B := 3); 

A += 4; 

GO TO X; 

IF 1<2 TFiEN A=5 



IF 1=2 THEN A=6; ELSE A=7 ; 



RETURN "lOOOO"; 



END X; 
END F; 









* 


5A 


00 3 


SSP 


3 


3 


0003 


* 


5A 


00 03 


SSP 


3 


6 


00 06 


* 


53 




BENT 




7 


0007 


* 


5A 


0006 


SSP 


6 


10 


OOOA 


* 


71 




LI 




11 


OB 


* 


B2 


4 


STW 


2, A 


13 


OOOD 


* 


72 




L2 




1 4 


OOOE 


* 


AA 


6 


STWN 


2,r 


16 


010 


* 


AA 


5 


STWN 


2,B 


18 


012 


* 


B2 


4 


STW 


2, A 


2 


014 


* 


73 




L3 




2 I 


015 


* 


AA 


5 


STVvfN 


2,n 


2 3 


017 


* 


B2 


4 


STW 


2, A 


2 D 


0019 


* 


74 




L4 




26 


001 A 


* 


0.2 


4 


AWM 


2 , /\ 


2 8 


1 C 


* 


57 


010 3 


GOTO 


l,:( 


2 2 


2 


* 


71 




LI 




3 3 


0021 


* 


72 




L2 




3 4 


0022 


* 


28 




LT 




2 5 


2 3 


* 


13 


000 


BRF 





3 8 


2 6 


* 


75 




L5 




39 


2 7 


* 


B2 


4 


STW 


2, A 


3 5 


02 3 


* * 


13 


02 9 


BRF 


41 


n 


002 9 


* 


71 




LI 




A2 


002 A 


* 


72 




L2 




43 


002B 


* 


2A 




EQ 




44 


002C 


* 


13 


(] 


BRF 





4 7 


02F 


* 


76 




L6 




4 8 


3 


* 


B2 


4 


STW 


2, A 


5 3 


0032 


* 


4 7 


0000 


BRA 





4 4 


002C 


* * 


13 


003 5 


BRF 


53 


5 3 


00 3 5 


* 


77 




L7 




5 4 


00 3 6 


* 


B2 


4 


STW 


2 , !\ 


5 


32 


* * 


47 


00 38 


BRA 


56 


56 


0038 


* 


42 


00010000 


LDL 


655 


6 1 


00 3D 


* 


37 




SNGL 




6 2 


00 3E 


* 


41 


FF 


LBL 


25'' 


6 4 


00 4 


* 


25 




AND 




€5 


041 


* 


54 




EXIT 




6 6 


0042 


* 


58 




BXIT 




6 7 


04 3 


* 


54 




EXIT 
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5.5 OPERATORS 



This section discusses the translation of operators. For the 
present purposes, an expression is composed of a series of 
operators applied to operancs. (The language allows for operator 
precedence, subexpressions, and conditional expressions.) 
Operand fetching, discussed in the next section, places the 
operand in the stack; the result of any operation is also in 
the stack. Each operand anc the result of an operation are 
either of size word or double. Operand translation concerns 
the determination of the result size, the conversion of the 
operands to a compatible sije, and the selection of the 32/S 
instruction to execute the? cperation. 

Operators are of 2 types: l nary (1 operand) and binary 
(2 operands) . 

Unary Operators -- 

There are 3 unary operators as shown in Figure 5.5a. The unary 

addition operator ('+') generates no code, the others a single 

instruction. The size of th g result is always the same as the 
size of the operand. 

Binary Operators -- 

There are 26 binary operators as shown in Figure 5.5d. There 
are 5 classes of binary operators from the point of view of 
the translation algorithms: other, shift, logical, DIVD, and 
MULD. Figure 5.5b shows the result size by class. Figure 5.5c 
the operand preparation by class, and Figure 5.5d the code 
generation by individual operation and also the class definitions. 

• Other: The other class consists of the bulk of the 
arithmetic operators. It distinguishes the word-word 

case from the others. The word-word case is done exclusively 
in word size, the other c :ises convert word to double, use 
double operations, and produce a double result. 

• Shift : The shift class consists of the 4 shifts. It 
operates in, and produces a result of, the first operand 
size, but requires the se c:ond operand, the shift count, to 
be word. 

• Logical : The logical class consists of the 6 logical 
comparisons. It works ej< ::lusively in word size. 

• DIVD = The DIVD class consists only of DIVD. The first 
operand (the dividend) must be double, the second operand 
(the divisor) must be wori, and the result is always word. 

• MULD : The MULD class consists only of MULD. Both operands 
must be word and the result is always double. 
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Fig 5.5a 



Unary 
Operator 


Operan 
Word 


d Size 

Double 


+ 

-t- 


NEG 
NOT 


DNEG 
DNOT 



INSTRUCTIONS GENERiVPED 



Unary 
Operator 



Operand Size 



Word 



Double 



Word 
Word 
Word 



Double 
Double 
Double 



RESULT SIZE 



Figure 5.5a: Unary Operator Translation 



Fig 5.5b 
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Operand Sizes 



Binary 

Operator 

Class 


Word-Word 


Double-Double 


Word-Double 


Double-Word 
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Figure 5.5b: Binaryj iperator Result Size 
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Fig 5.5c 
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Figure 5.5c: Binary Operator Operand Preparation 
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Operand Sizes 






Operator 












Class 


Operator 


Word -Word 


Double-Dovible 


Word-Double 


Double -Word 


Other 


+ 


ADD 




DADD 






- 


SUB 




DSUB 






* 


MUL 




DMUL 






/ 


DIV 




DDIV 






& 


AND 
OR 




DAND 
DOR 






XOR 


XOR 




DXOR 






MOD 


MOD 




DMOD 






< = 


LE 




DLE 






< 


LT 




DLT 






= 


EQ 




DEQ 






+ = 


NE 




DNE 






> 


c;t 




DGT 






> = 


GE 




DGE 




Shift 


SLC 


SLC 


DSLC 


SLC 


DSLC 




SLL 


SLL 


DSLL 


SLL 


DSLL 




SRA 


SRA 


DSRA 


SRA 


DSRA 




SRL 


SRL 


DSRL 


SRL 


DSRL 


Logical 


LEQ 
BGE 
LGT 
LLE 
LLT 
LNE 






LEQ 
LGE 
LGT 
LLE 
LLT 
LNE 




DIVD 


DIVD 






DIVD 




MULD 


MULD 






MULD 





Figure 5.5d: Binfiry Oi erator Code Generation 
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5.6 OPERAKIDS 



This section discusses expression operands. There are 5 
types: procedure references, subexpressions, conditional 
expressions, literals, and memory references. Procedure 
references are discussed in Section 5.7. Subexpressions 
are a linguistic artifact and have no bearing on the 
translation algorithms. 
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5.6.1 Conditional Expressions 



A conditional expression operand has the form: 

IF expl THEN exp2 ELSE 2xp3 

The result size of a conditional expression is double 
if either <exp2> or <exp3> is double; the result size is 
single if both <exp2> and <eKp3> are word. The code 
generated is: 



Size2 



Size3 



X 



expl 


BRF 


exp2 


BRA 


exp3 



x 



Size2 = Double 
Size 3 = Word 



[e xpl 

ERF 
\e x:p2 



ERA 
x [e xpj] 

[ BLl 

y 



x 



Size2 = Word 
Size3 = Double 



|expl| 
BRF 



exp2 


BRA 


exp3 



BRA 
y DBLl 



X 
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5.6.2 Literals 



Literal operands may be written in 3 forms: bit strings, 
character strings, and decimal nuraljers. A literal operand 
does not include a sign. The literal is converted to a 
32 bit internal value with an associated precision and 
a load literal instruction generated. An overflow flag 
is generated if the internal representation requires 
more than 32 bits. Unused bit positions are filled with 
zenDes. 

• B it Str-ings : A bit string is regarded as representing 
<i binary magnitude number. It has the bit precision 
of the number of bits written- Leading zeroes are 
significant. If overflow occurs, the 32 low-order 
:Dits are retained. 

• C haracter Strings : A character string is regarded 
as representing a binary magnitude number, as with 

a bit string. It has the bit precision of the number 
of. characters written times 8. If overflow occurs 
':he high-order characters are retained. 

• D ecimal Numbers : A decimal numtier is regarded as 
representing a signed binary nunLner. It has the 
precision of the number of magnitude bits present in 
the converted binary representation plus a sign bit 
(which is always 0) . Leading zeroes are not significant, 
If overflow occurs, the 32 low-order bits are retained, 
"his interpretation of decimal precision differs 

from that used in initial lists (see Section 5.2.4). 

The load literal instruction genera :ed is a function of 
the precision: 



Precision (bits) 


Opcode 


Operand 


0-4 


Lx 


none 


5-8 


LBL 


1 byte literal 


9-16 


LWL 


2 byte literal 


17-32 


LDL 


4 byte literal 
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5.6.3 Memory References 
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Memory reference operands o ;cur in 2 symetric forms- 
loads and stores. This subsection deals exclusively with 
loads but applies equally t :> stores with the following 
alterations: all load oper itions become store operations- 
memory reference preparation (index evaluation, etc.) is 
separated from expression SLze conversion and the actual 
store, by expression evaluation; and, finally, constant 
variables may be loaded fron but not stored into. (Parameters 
may be stored into, but sin-e they are mechanized with a 
call-by-value scheme, they iisappear when the procedure 
is terminated.) 

The memory reference translation algorithms are shown 

in Figures 5.6.3a (non-autoj latic variables) and 5 6 3b 

(automatic variables) . For non-automatic variables there 

IS no difference in the algorithms for the different 

sizes except of course, fo: the actual store. For automatic 

Zt^'^'^^l^^ ^^"^ address for b^ te size is a byte address, 

the address for word and double size is a word address 

In all cases the size field for a LADR instruction is 

conditioned by the variable size. Figure 5.6.3c shows 

the correspondence between } ardware address mode and 

language variable class. 

Memory reference trans] atior for automatic variables is 
a function of locality and tpan. A variable is local 
if It IS referenced in the tame block it is defined- a 
variable is remote if it is referenced in a block that 
IS nested m the block in which it is defined. The span 
of a variable is its EP byte address for a byte variable 
and Its EP word address (byt a address divided by 2) for 
a word or double variable; t tie span is short if less then 
255, long if 256 or over. 

The pointer size attribute n ly be applied to a variable 
of any class. The code consists of a load of the pointer 
followed by a load of the actual data. The bit size 
attribute and field select soecif ication may be applied 
to any storage class; however, the size attribute must 
be word for field select and is effectively word for 
bit, as the final LF (load field) instruction assumes 
word. The algorithms shown xssume that the load can be 
accomplished in a single LF iistruction. Should an index 
or other supporting operand ^e required, the necessary 
code IS inserted before the inal LF per the algorithm 
of the parent symbol class. 
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The 2 argument form of a field select specification 
generates a field descriptor using a GFD instruction 
based on the supplied length and position; the 1 argument 
form assumes the single argument is a prefabricated 
descriptor. 

Data when allocated by the translator is always left 
justified. A bit scalar occupies the leftmost bits of 
the full word required to hold it leaving the rightmost 
bits unused; a byte variable, allocated on an even byte, 
followed by a word variable, leaves the preceding byte 
(the rightmost of the preceding word) unused. (This byte 
would have been used if the byte variable were followed 
by another byte variable.) 

Data when loaded by a load instruction is always right justified, 
For bytes, this justification discrepancy can be resolved 
when addresses are assigned. For bits, this discrepancy 
can only be resolved when the field descriptor is generated 
for the load instruction: a non-parameter bit variable is 
left justified, a parameter bit variable is right justified. 

Constant variable are subject to several constraints 
not shared by the other variables. As mentioned above, 
they may not be stored into. In addition, the address 
of a constant may not be passed as data (the LADR instruction 
has no provision for specifying the space the address is 
in: program or stack) or as the object of the address 
function ('!?'). Note that although this eiddressmg constant 
prevents pointer variables from beinq unused to reference 
constant arrays, the same effect can be achieved in the 
local routine by use of array addressing. 

Some memory referesnces require supporting operands in the 
stack at the time the actual memory reference is made: 
a base, an index, or a field select descriptor. In such 
cases, the supporting operands are inserted in the stack 
in the order they appear in a lef t-to-right scan with any 
basing operands appearing first. Thus a base or indirect 
address appears before an array index which appears before 
a bit or field descriptor. Further, some preliminary 
operands in the stack get used in the computation of others. 
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The following program illustrates some, but by no means 
all, aspects of memory reference translation. 
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P: PR0C(PAPAM_REM0TE_BIT2_ARRAY) ; DCL /* $W */ 

AnTO_UEMOTE_BYTE_SCALAR PYTE, 

An70_REM0TE_W0Rn_ARRAY ( ) WORD, 

PARAri_REM0TE_Bir2_ARRAY ( ) ^JT ( 2 ) ; 

Q: PR0C('3ARAM_.L':)CAL_BYTE__SCALAR, FARAM_LOCAL_WORD_ARRAY ) ; DCL 

(INDEX, A_ INDEX, P__:NDEX, 

LEN, LOf;-, FIELDS) \JORD, 

AUT0_L0CAL_SH0RT_BYTE _SCALAR BYTE, 

AUTO_LOCAL__SHORT_DBr,E _ARRAY (0 ) DOUBLE, 

FILLER (100 0) BYTE, 

ALlTO_LOCAL_LOnG_BYTE._SCALAR BYTE, 

AL'TO_LOCAL_J_.Orr,_DBLE._APRAY (0 ) DOUBLE, 

STATIC_It;T_BYTE_SCALAR BYTE STATIC, 

STATIC_EXT^_BIT1_ARRAY(0 ) BIT(l) EXTERNAL, 

CRASE_BIT2 ^SCALAR BIT (2) BASED 10, 

VBASE_WORD„ARRAY (0 ) WORD BASED STATIC_I N't^_B YTE_SCALAR , 

CONSTANT_BYTE_SCALAR BYTE COt-iST ANT (1 2 ) , 

PARAM_LOCAL_BYTE_SCALAP FtYTE, 

PARAi'l_LOCAL_WORD_ARRAY(0 ) V/ORD, 

ptr._byte__S':alar pointer to byte, 

r'T^._VroRD_ARRAY(0) POIMTER TO WORD; 

CALL P( /* SC */ 

A IIT 0_L C A L_S H C R T _B YT t-: __S C A L A R , 

17 0011 * FA 10 LB 2, AUTO_LOCAL_SHORT_BYT-:_SCA 

AUT0_L':"'^AL_3}ICRT_DBLE__ARRAY (INDEX) , 

19 0013 * F2 06 LW 2, INDEX 

21 0015 * C3 OD LD 3 , AUTO _LOCAL_SHORT_DBLE_ARR 

AUT0_RE-K5TE_BYTE_SCALAR, 

23 0017 * 06 18000A LADR 24 , AUTO_REMOTE_B YTE_SC.\LAR 

2 7 00 IB * FC LB 4 

AUTO_REMOTE_v;ORD_ARRA Y ( INDEX ) , 

28 OOIC * 06 19000C LADR 25 , AUTO_REMOTE_WORD_AR',AY 

32 002 * F2 06 LW 2, INDEX 

34 0022 * F5 U<l 5 
AUTO_LOCAL_LONG_BYTE__SCAIJ\R, 

35 0023 * 06 080407 LADR 8 , AUTO _LOCAL_LOriG_ B YTE SCAL 

39 0027 * FC LB 4 
AUTO_LCCAL_LC'NG_DBLE__ARRAY (INDEX ) , 

40 0028 * 06 OA0408 LADR 1 , AUT0_L0CAL_L0NG_DBL1^_ARR 
44 002C * F2 06 LV7 2, INDEX 

46 002E * C5 LD 5 
STAT IC__.I NT_B VT E_S C ALA R , 

47 002F * F8 0000 LB , STATIC_INT_BYTE_ SCALAR 
STATIC._EXT_BIT1_ARRAY (INDEX) , 

50 0032 * F2 06 LW 2, INDEX 

52 00 34 * OD 

53 0035 * Dl 0001 LF 1 , STATIC_EXT_BIT 1_ARRA': 
CBASE_BIT2_SCALAR, 

56 30 38 * 7A 

5 7 39 * 7 
58 3A * 41 IE 

6 3C * D7 



LW 


2, 


XBl 




LF 


1, 


Lie 




LO 




LBL 


30 


LF 


7 
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VBASE_WORD_ARRAY( INDEX 



$ (LENtLOC), 
61 00 31 * 
64 004 
6 6 00 4 2 
68 0044 

70 0046 

71 0047 



C0N3TAI1T_BYTE_SCALAR, 



72 004-3 
7 3 00 4} 



dara:i log al_byte_sc alar, 

7G 40 * 

RARA-1_L0CAL_U0RD_ARRAY (INDEX) $ (^lELD 

78 004" * 

80 005 1 * 

R 2 S 2 * 

84 0054 * 
PARAM_REM0TE_niT2_ARRAY (INDEX) , 

85 0055 * 

8 9 0':>9 * 

9 05\ * 
m 5: * 
9 3 00 5 n * 



PTR_UORD_ARRAY (INDEX) , 



PTR_BYTE_SCALAR P, 



94 005E 

9 8 f 2 

ion 0f4 

101 0f,5 

105 00f9 

106 OOf.A 



PTR 9YTE SCALAR (P_INDEX 



PTR WORD_ARRAY (A__INDEX 



107 oorn * 

111 00 CF *- 

112 '' * 

114 ".^ 2 * 

{p_indf:x) ) 

115 "'3 * 
119 00 7 7 ■" 

121 00/9 * 

122 00 /A * 
124 O0''C * 
12 5 00 7 n * 



F8 0000 
F2 06 

F2 09 
F2 OA 
2E 
D7 

70 

FE 0009 

FA 09 
) , 

F2 05 

F2 6 

F2 OB 



190 00 8 
06 



09040E 

6 



904 0C 



Of: 

F4 
F2 

OK 
n', 

Of) 
F2 
F5 

6 
F4 



OG 904 0C 

F4 

F2 8 

FD 

/* $C */ 

6 904 0E 

F2 7 



F2 
F5 
52 



08 
17 



LB 

LVJ 

LW 

LW 

GFD 

LF 

LO 
LB 

LB 

Ul 
LVJ 
LW 
LF 



, STATIC_INT_BYTE_SCALAR 
2, INDEX 
2, LEN 
2, LOG 



6,c0nstant_byte_scalar 
2, param_logal_byte_scala; 
2 , param_local_vjord_arra Y 

2, INDEX 
2, FIELDS 
5 



LADR 25 , PARAM_REM0':E_niT23?RAY 

LW 4 

LW 2, INDEX 

X32 

LF 5 

LADR 9 , PTR_WORD_ARRAY 

LW 2, INDEX 

LW 5 

LADR 9 , PTR_BYTE_SCALAR 

LW 4 

LB 4 

LADR 9, PTR_BYTE_SCALAR 

LW 4 

LW 2 , P_I N DE X 

LB 5 

LADR 9, PTR_WORD_APRAY 

LT'J 2,A_INDEX 

LW 5 

LW 2,P_INDEX 

LW 5 

GALL 23 



END Q; 
ND P; 
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Fig 5.6 . 3a 



Symi>ol Class 


Subcase 




Scalar 






Ar 


ray 


Static 


Internal 


L* 0,SB 


L* 1,SB 




External 


L* 0,0000 










[indej^ 

L* 1,0000 














t 


Constant Based 


tbasel 

LO 

L* 7 


jcbase 
jTrideii 
L* 


7 1 
















Variable Based 


vbcisel 




[vbase 






LO 

L* 7 


[index 






L* 


7 






LO 

L* 6,PB 








Constant 


[index 
L* 


6,PB J 


Parameter 


Local 


- - 


see' automatic 
Figure 5.6. 3b 


LW 2,EP 
|index| 
L* 5 




Remote 


see automatic ; LADR A,size,EP 
Figure 5.6.3b LW 4 
} [index] 

I L* 5 




Pointer, 
no index 


' 






Any 








a- index 






pointer] 
L* 4 


3ointer 

L* 4 




Pointer, 

with index 
















a -index 
pointer 
p- index 








pointer! 




p-indexl 






L* 5 


L* 5 




Bit 










LBL bitsjsec 

LF mode, address 




indexj 
XBi 

LF 


mode, addr ess 




Field select, 
1 argument 












■ 




lindex 






fields! 

LF mode, address 


fields 

LF mod e , addr e s s 




Field select, 
2 arguments 


















Lndexj 








length! 


Length[ 






Location! 


Locatio 


^ 






GFE 

LF mode -address 




GFD 

LF mode, address 



Fig 5.6.3a 



SB - Stack base stack Locati 

EP - Environment pointer sta 

PB - Program pointer program 

* - B (byte) , W (word) , or 

size - "8" (byte) , "9" (word) , 

A - Differential lex level 

i - 1 (BIT(l) ) , 2 (BIT(2)) , 

0000 - 16 bit address of fil 

local - See text 

span - See text 

mode - Mode of parent variable 

address - Address of parent varia 

Code for loading consta 
result is word 

Code for loading varial: 

Code for loading array 

Code for loading array 

Code for loading pointt 

Code for loading pointt 

Code for loading bit fi 

Code for loading bit f: 

- Code for loading prefah 

bitspec - Prefabricated descriptc 



cbase 



ivbase 



index 



a-index 



p- index 



pointer 



length 



)n 

:k location 

location 
) (double) depending on variable size 

or "A" (double) depending on parameter size 
from current to variable 

4 (BIT(4)) depending on bit size 
led in later by loader 



location 



fields 



Die 

It base: a load literal of some variety, 

Le base, result is word 
i-ndex, result is word 
index, result is word 
r index, result is word 



eld length, result is word 
eld length, result is word 
ricated field descriptor 
r of bit scalar: 



Size 


Parar eter 


Non Parameter 




(right j\ stifled) 


(left justified) 


Bit (1) 


"0( " 


"OF" 


Bit (2) 


"K " 


"IE" 


Bit (4) 


"3( " 


" 3C" 



Figure 5.6.3a: Memor;;^ Reference Translation 



82 



Fig 5.6. 3b 
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Array 
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jindex] 

LD 3,EP/2 


Local long- 
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LD 4 
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LADR A,8,EP 
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[index] 
LW 5 


[indexj 
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Note : Terms defined in Figure 5.6. 3a 



Figure 5.6.3b: Memory Refere nce Trju;KsLatJjvn_ for _Ant_nni3t i r Variables 
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Hardware 

Address 

Mode 


Effective Address 


Use 




1 


SB + dl6 

SB + dl6 + tos(x) 


Scalar static 
Arra/ static 


2 


SB + EP + d8 


Loos I short-span scalar automatic 


3 


SB + EP + d8 + 
tos(x) 


Loca L short-span array automatic 


4 


SB + tos (dl6) 


Non- indexed pointer. Local longspan scalar 
aitomatic. Remote scalar automatic 


5 


SB + tos (x) + 
tosl(dl6) 


Indexed pointer. Parameter, Local long-span 
array automatic. Remote array automatic 


6 


PB + dl6 + tos(x) 


Cons taut 


7 


tos(x) + 

4 * tcsKdlS) 


Base i 



SB - Stack base stack location 

EP - Environment pointer stack location 

PB - Program base prograin locat Lon 

d8 - Displacement of 8 bits 
dl6 - Displacement of 16 bits 

dl8 - Displacement of 18 bits of which the low-order 2 are assumed 
tos - Top of stack, use indicate i in parentheses 
tosl - Next to top of stack, use indicated in parentheses 



Figure 5.6.3c: Mtmory Reference Mode Use 
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5.7 



PROCEDURE REFERENCES 



This section discusses the translation algorithms for a 
called procedure. For the purposes of the present discussion 
it is convenient to classify procedure in 3 groups: user , 
micro, and built-in. Arguments are translated in the same 
manner for all procedures. 

• Arguments : Scalar arguments are passed, by value, array 
argioments by address. 

A scalar argument is any expression. (An expression may 
result in an address.) The expression is evaluated, 
which will leave the result in the stack. 

An array argument is a symbol declared as an array but 
referenced without a sxobscript. A LADR. instruction is 
generated, which will place the address of the first 
array element in the stack. 

Note that all arguments occupy a word, except for an 
expression that results in a double size which will 
occupy 2 words . 

The following example illustrates arg^ament translation: 



?: 



PROC 
SYS 
BUF 
CAL 



DCL 



V 



/* &C 
PUT EXT PROC, 

(79) BYTE; 

L SYS PUT (BUF, LOW ( "1 



0000 



END P; 



8 0)) ; 












00 00 


* 


5A 


02B 


SSP 


43 


; 00 3 


* 


50 


143001 


MARK 


20, 3YSPU 


7 0007 


* 


06 


080008 


LADR 


8 , B UF 


11 OOOB 


* 


42 


00010000 


LDL 


65 5 36 


lb 0010 


* 


41 


50 


LBL 


80 


18 0012 


* 


08 




DBLl 




19 0013 


* 


4F00 




DADD 




21 0015 


* 


37 




SNGL 




22 0015 


* 


52 


05 


CALL 


5 


2 4 018 


* 


54 




EXIT 
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User Procedures : A user jirocedure reference generates: 
CALL name (agrl, arg2 , .. argn) ; 
MARK flags,locat on 



argl 



arg2 



argn 



CALli 



length 



where <length> is the tot il size of the argument list in 
words including the mark; <location> is the PB relative 
address of the invoked procedure (which may be external); 
<flags> contains several )ieces of information about the 
nature of the call as dis :ussed in conjunction with the 
translation of the MARK i istruction in Section 5.8. 

Micro Procedures : A micr i procedure reference generates: 

CALL name (argl, arg2 , ... argn); 

argl 

arg2 



argn 

MICH location 
where <location> is the declared microstore address. 



Built-in Procedures: The: 



of which generate in-line 
declared, rather it is de 
With the exception of the 
definition is made in the 
the environment built-in 
in which it is invoked, 
a built-in name to be use 
there is no way to rodefi 
an inner block. 



e are 17 built-in procedures all 
code. A built-in is not 
ined when first encountered, 
environment built-in, the 
outermost block, block 0; 
is defined anew in each block 
•Jote that the language permits 
i as a user symbol; however, 
-le the symbol as a built-in in 
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Fxgure 5.7a shows the attributes given to the built-ins. 

The following points are worth noting. The built-ins 
shown with a return size may be invoked either in a 
call statement or expression. The built-ins without 
a return size may only be invoked in a call statement. 
The return size of abs is the same as its argument; 
that is abs is a generic built-in. The environment 
built-in is best viewed as an array of pointers whose 
first element is the first word of the current stack 
environment; it has the properties of any other array 
of pointers and generates code accordingly. 

Arguments to built-in procedures are validated for 
correct size and flagged if incorrect. This is the 
only circumstance in the compiler where an expression 
is not automatically converted to the desired target 
size . 



Fig 5.7a 
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Function 


Number of 
Arguments 


Argument 
Size 


Return 
Size 


Code 
Generated 


abs 


1 


Word, 
Double 


Word, 
Double 


ABS^ 


carry 


0,1 


Word, 
Double 


Word 


TCAR^ 


dble 


1,2 


Word 


Double 


DBLl^ 


environment 


1 


Word 


Word 


"t 


high 


1 


Double 


Word 


POP 


low 


1 


Double 


Word 


SNGL 


nop 







— 


NOP 


overflow 


0,1 


Word, 
Double 


Word 


TOVF^ 


pnop 





— 




PNOP 


resume 


1 


Word 




RESM 


ssr 





— 


— 


SSR 


supervisor 


1 


Word 


-- 


SUPV 


switches 





-- 


Word 


ESW 


trap 





-- 


— 


TRAP 


wait 





— 


-- 


WAIT 


xim 


1 


Word 


Word 


XIM 


prtnum 


1 


Procedure 


Word 


LWL addr^ 



1 DABS if argument size dovble 

2 Preceded by POP if argument size double, additional POP 
if 1 argument form 

3 No instructions genera tec: if 2 argument form 

4 See text 

5 PB address of start of procedure for internal procedures, 
PLIB number of segment appended to PRTNUM of procedure 
for external procedure. 



Figure 5.7a: Built- in Function Translation 
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5.8 INSTRUCTIONS 



This section discusses the translation of 32/S instructions 
into loader directives. It is convenient to classify 
the instruction set 15 ways accordinc to the opcode length 
and operand type as shown in Figure 5.8b. The mapping 
from instruction to class is shown :.n Figure 5.8d. The 
translation algorithms from instruction class to loader 
directive are also shown in Figure 5.8b and are amplified 
below. 

Most instruction classes can occur only in-line. The 
branc:h, GOTO, and pseudo-ADDR classes may also occur 
out of line as fixups to previously generated directives 
where a was used for a PB address that was a forward 
reference. Fixups are mechanized by changing the program 
counter to the fixup location, performing the fixup, then 
restoring the program counter. The original opcode is 
not rewritten as it remains unchanged. 

dissolute text is implied in Figure 5 . Bb where a directive 
of the form <0x> is shown. The <x> bytes of absolute 
text are appended to an absolute text string if one is 
already in progress. A new absolute text string is begun 
if none is in progress or an object record boundary would 
be crossed. 

The pseudo-instructions are created by the compiler and 
do not exist in the 32/S processor. They have no opcodes, 
consisting only of an operand. 

The I.ADR, WARK , and GOTO instructions have an associated 
flag byte of absolute text described in detail in Sections 
9.9, 9.2, and 9.10 respectively of Peference 6. The 
DLEX field, common to all instructions, measures the 
lex level difference between the current block and block 
of interest; if the reference is to the current block, 
DLEX is 0. For LADR the L- field encodes the size of the 
referenced item even if use of this field is not enabled 
by the I-flag which is set when LADR is used to compute 
the effective address of an array element specified by 
use of the address operator ('@'). The D-flag is set for 
all references except those to static data (internal, 
declared with STATIC area attribute, and external, declared 
with EXTERNAL) . For MARK the Z-flag is always off indicating 
the called procedure is in the same segment, and the R-field 
is set according to the declared return size: for none, 
1 for word, 2 for double. 
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Figure 5,8a: Instruction Set Classification 
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PB address 3 
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Fixup Directives 



MARK 



GOTO 



4 byte literal • 5 LDL 

PB address 2 ADDR 

1 byte literal ; 1 ; BYTE 

2 byte literal 2 : WORD 
4 byte literal ; 4 i DBLE 



< 8A/EDSN 
[SC/SB address 

02/50+flags, j'02/EPSN 
I 02/0000 
[SB/PB address 

02/57+fiags, 6b/PB address 



fSA/EDSN 
01/lit 
8B/PB addre 
none 



I 83/fixup, BB/PB address, B3/current 

(automatic variable) | 
(external static variable) ( 

(internal static variable) J 



(external procedure) 
(internal forward procedure) 
(internal backward procedure). 



63/'fixup, 01/flags, BB/Pb address, 
83/current 



-A^rn r\r■^ 






^v--; r,Ki ^\ 



(modes O&l, external variable)" 
(modes 2s3) 
(mode 6) 
(modes 4s5&7) 



05/42+lit 
BB/PB address 
01/lit 
02/lit 
04/ lit 



83/fixup, BB/address, 83/current 



O 



current - current PB location 

EDSN - External Data Sequence Number 

EPSN - External Procedure Sequence Number 

fixup - fixup PB location 

flags - see text 

lit - literal text or absolute operands 

op - opcode 



All opcodes with no mnemonics shown at 
the end of Figure 5.8b. 
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5.9 



LOADER DIRECTIVES 



This section describes the loader directives used by the 

compileir . 

Directives are written in ASCII on 80 byte fixed length 
records. Each record consists of a 5 byte preamble and 
up to 75 bytes of actual directives. Directives may cross 
record boundaries (although the compiler does not take 
advantage of this facility) . The preamble consists of: 

• Byte 1, Logical Record Sentinel : Always contains a 
pouricl sign ('#'). This permits locjical records to be 
dissociated from physical records (although the compiler 
does not take advantage of this facility) . 

• Byte 2, Format Indicator : Always contains a blank 

T^' ) indicating ASCII format. The loader can accommodate 
a bxnary format (although the compiler does not take 
advantage of this facility) . 

• Byte 3, Checksum : The checksum of each of the sut)sequently 
used bytes, starting with byte 4. The checksum is 

formed by byte addition with end-around carry. 

• Byte 4, S equence Numljer : The record numlaer starting with 
1 wliem the external procedure star':s. If there are more 
than 255 records, the sequence number repeats going 

from 2 55 to 1. 



Byte 5 , Byte Count : 
this recoird. 



The number of bytes of load text in 



There are 15 loader directive types of which 2 are used 
only by the cross compiler but are included here for 
completeness.. The first byte of each directive detei-mines 
the directive type. The number of bytes in the directive 
is conditioned by the directive type. The directives are 
summari;?;ed in Figure 5.9a and describ(;d in detail below. 
The diagrams with each directive show the directive code, 
supporting operands, and the length of each field. 

• t o "7F', Load Absolute Text : Specifies that the next 
<code> bytes contains absolute text.. The loader v/ill 
insert the text in program space without relocation. 
The loader prog.ram pointer will be advanced by <code> bytes. 



code^ 



text 



< code > 



<= code 



7F' 
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"81", Begin External Procedure : Signals the beginning 
of an external procedure (or other external block) , 
The loader will prepare for a new external procedure. 



"81"^ 



"82", End External Procedure : Signals the end of an 
external procedure (or other external block) . The static 
field contains the number of words of static storage 
rounded up a word boundary. The possible error codes 
are described in Section 4.1. The loader will increment 
its static relocation counter by the static length. 



"82 



II 1 



static length 



error code 



"83", Set Program Pointe r: Specifies a non-sequential 
change to the program pointer. The loader will set its 
program pointer to the iDcation field (after relocation) 



"83 



II 1 



locati on 



"84", Define Cross Compiler Main Procedure Entry Point : 



Identifies the name of a 
the cross compiler. Dir 
function for the self co 
the first 8 characters o 
beyond the 8th are lost 
trailing blanks. The lo 
relocatable address of t 
used for the compilers a 
name to its symbol table 



main procedure compiled under 
2ctive "90" performs a similar 
Tipiler. The name field contains 
L the entry name; characters 
and a short name is padded with 
-ation field contains the 
'le first instruction; is always 
t hand. The loader will add the 



"84 



II 1 



name 



location 



"85", Define External Procedure Entry Point : Identifies 
the name of an external orocedure . Use the same as 
directive "84". 



"85 



II 1 



name 



location 
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• "86", Define External Interrupt Procedur e Entry Point : 
Identifies the name of an external' interrupt procedure , 
Use is the same as directive "84". 



"86"i 


name ^ 


location ^ 



"87", Define Cross Compiler Externa l Var iable Reference 

Number ; Identifies the name of an" 

compiled under the cross compiler a 

reference number for later use by d 

Directive "8F" performs a similar f 

compiler. The name field contains 

of the entry name; characters beyon 

a short name is padded with trailin 

field measures the extent of the va 

The loader will add the name to its 



external variable 
nd assigns to it a 
irective " 8A" . 
unction for the self 
the first 8 characters 
d the 8th are lost and 
g blanks. The size 
riable in bytes, 
symbol table. 



"87" 1 


size ^ 


name ^ 


reference 2 
number 



"88", Define External Procedure Reference Number ; Identifies 

the name of an external procedure and assigns to it 

a reference number for later use by directive "89". 

The name field contains the first 8 characters of the 

entry name; characters beyond the 8th are lost and 

trailing blanks (')z$') are used to pad a short name. 

The loader will add the name to its symbol table. 



..gg"! 


name ® 


reference 2 
number 



"89", Reference External Procedure : Invokes an external 
procedure whose reference number was previously defined 
in an "88" directive. The loader will insert the runtime 
address of the referenced external procedure. The loader 
program pointer will be advanced by 2. 



.. g 9 .. 1 


reference 2 
number 
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"8A", Reference External Variable : Invokes an external 
variable whose reference number was previously defined 
in an "87" or "8F" directi\/e. The loader will insert 
the runtime address of the referenced external variable 
in program space. The loader program pointer will be 
advanced by 2 . 



,. g^Ml 



reference 
number 



"8B", Relocate Program Address ; Specifies relocation 
of a program address. The loader will insert the address 
field in program space rel )cating the address with respect 
to the loadtirae program base. The loader program pointer 
will be advanced by 2. 



"8B 



ti 1 



address 



"8C" , Relocate Stack Addre ss: Specifies relocation of 
a stack address. The loader will insert the address 
field in program space relocating the address with 
respect to the loadtime stack base. The loader program 
pointer will be advanced by 2. 



"8C" 



address 
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"8F" , Define Self Compiler Externa 1 Variable Reference 



Number : Identifies the name of an 
compiled under the self compiler a 
reference number for later use by 
Directive "87" performs a similar 
compiler. The name field contains 
of the entry name; characters beyo 
and short name is padded with trai 
size field measures the extent of 
The <attributes> field encodes the 
The loader will add the name to it 



external variable 
nd assigns to it a 
directive "8A". 
function for the cross 

the first 8 characters 
nd the 8th are lost 
ling blanks. The 
the variable in bytes. 

variable data type. 
s symbol table. 



"8F" ^ 


attributes ^ 


size ^ 


name ® 


referencea 
number 



/ 



units 



size 



0.1+ 



< units > 



<size> 



Declared Size 



1 
2 
3 



BIT (1) 
BIT (2) 
BIT {4) 



1 
2 
3 



BYTE 
WORD 
DOUBLE 



1 

2 
3 



POINTER TO BYTE 
POINTER TO WORD 
POINTER TO DOUBLE 



• "90", Define Self Compiler Main Procedure Entry Point : 
Identifies the name of a main procedure compiled under 
the self compiler. "84" performs -a similar function for 
the cross compiler. Directive use is the same as 
directive "84". 



9 0"! 



name 



location 



Fig 5.9a 
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Figure 5.9a: Loader Directives 
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6.0 INTERNAL TRANSLATOR OPERATION 



This final chapter is concerned with internal translator 
organization and operation. It is of interest when the 
compiler is being maintained or enhanced. 

The routines of the compiler may be broadly classified 
as passive or active. The passive routines are defined 
as being independent of the language at hand, and could 
be applied to another language. The passive routines 
deal with the system interface I/O, utilities, symbol 
table, scanner, and code generation. The active routines 
are defined as being dependent on the language. They 
correspond to, and are named for, the syntax equations 
of Appendix L. The active routines deal with declarations, 
block structure, statements, expressions, and operands. 
This chapter discusses the passive routines first and 
the active routines last. 

Several of the appendicies are included to illuminate 
translator structure. The load map of Appendix I lists 
all external procedures and variables giving their 
dynamic locations. The flag references of Appendix H 
show from which procedure each flag is generated; a 
procedure is listed more than once if it generates the 
flag in more than one circLmstance . 

The external procedure references of Appendix J show 

from which translator procedure each translator and system 

procedure (shown starred) as called. There is exactly 

one uncalled procedure, MPI , the main procedures. Appendix J 

is the inverse mapping of tie external procedure references 

shown in the symbol table 1 Lstings when the compiler 

itself translated. 

The external variable references of Appendix K show 
from which translator procedure each external variable 
is referenced. Each variable is referenced in MPL , the 
main program. Once again, Appendix K is the inverse 
mapping of the static external references shown in the 
translated compiler symbol tables. 

Several coding conventions are followed throughout the 
compiler. All external variables are defined and 
initialized in the main program ( MPL ) ; no use is made of 
static variables. I/O buffir lengths are always 1-indexed 
(except when the buffer is iefined when they are 0-indexed) . 
The symbol table size may exceed 32K so logical operations 
are substituted for arithmetic operations in symbol 
table addressing. All routines that return a true/false 
response and all flags use ) for false (off) and 1 for 
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tru<2 (on) . Unless otherwise noted, all variables are of 
size word and all buffers and string text of size byte; 
bit variables are never used, double variables are only 
used during constant conversion and location counter 
updates . 

The basic translation strategies used aare one-pass, 
top-down parse, in memory operation., and hash- addressing 
of symbols. 

Only a single pass is made over the source program. One- 
pass translation seives time, simplifies external operation, 
and eliminates communication betwecsn passes. However, 
one-pass translation complicates tlie processing of 
forw£ird liibels and requires code gisneration to allow for 
f ixups. 

The parse of the source program is strictly top-down. This 
makes it possible for the translatC'r structure to 
follow the language syntax directly. Further, a top- 
down parse makes the generation of diagnostics simple and 
complete . 

Translation occurs in memory. All translation context 
is retained in translator variables and the symbol table. 
In-memory operation removes depend(;nce on external 
peripherals, incre^ising reliability, simplicity, and 
performance at the cost of a modes": amount of additional 
memory . 

Syml:)ols of the target program are ciddressed with a 
basiling technique that makes symbol access time independent 
cf symbol table size, increasing performance. Once 
again, this increased speed is paid for with a modest 
amount of additional memory. 

Although the compiler is a fairly large program, the only 
genuine logical complexity results when a translation 
algorithm cannot be completed on-the-fly. This occurs 
with variable allocation, forward branches, forward calls, 
and statement type determinarion. Several tactics are 
used as a substitute for the desirc^d ability to look 
ahead: the scanner can back up, the code generators can 
fixup previously generated code, the symlDol table can 
link entries in chains, and when all else fails, external 
flacjs are maintained to indicate tiranslation state. 
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6 . 1 SYSTEM INTERFACE 



The compiler is entered vie the main program MPL. All 
table size parameters are d* fined there (as literallys) 
as are all external variabes. Compiler memory use is 
shown in Figure 6.1a. The program base (pb) and program 
length (pi) are extracted ' rom the PLIB and the top of the 
compiler computed in stbast as a base address. After 
room is left for the stack ( stacksiz bytes) and sort 
buffer (4 * width4 bytes) the bottom of the symbol table 
is established as stbase (dso a base address). The 
symbol table continues upward for textminO bytes to the 
top of memory. (Note that the addition of memory 
beyond 64K is not automatic ally used by the symbol table 
because of hardware restrictions.) Memory checksums are 
computed in checks for the program space occupied by 
the compiler: from pi;) for pi bytes. 

External variable ini1 iali; at ion is performed in MPL. 
Variables which are used at static storage are set just 
once. Before each externa] procedure is translated the 
non-static external variab.es are reset, the stack 
preset to "55" so that stac k use may be measured, and the 
hash table cleared. Ixtorral procedures are translated 
until a physical EOF is encountered. 

Return to the operating system is via EXIT which sets 
the second word of the curi snt mark to -1 which causes 
a system return. (Weie cxt ornal labels permitted, a 
normal return from the mair program would have been used.) 

Memory integrity is checkec by MEMCHECK at the end of 

each external procedure, ar d if enabled (V-toggle) , before each 

source record is read. The checksums previously computed 

are validated, if enabled iM-toggle) and the unused 

portion of the stack detern ined and noted in stackuse . 

Toggles state is maintainec in the byte vector toggle 
which is initialized once fer external procedure by 
SETTOGS (if enabled by P-tcggle). 



Fig 6 . la 
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Figure 6,1a: Memory Configuration 
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6 . 2 INPUT/OUTPUT 



I/O consists of physical I '0, formatted output and 
radix conversion. 

Source input is done by SP yA;3. The source buffer is 
so^^f °f size sosize ; each read increments the source 
record counter line . The ictual physical input is done 
by the system routine SYSG ::t which manages the SYSIN 
system file. If object ii source is enabled (#-toggle), 
SREAD loops until a true s )urce record is obtained. 
Should a physical EOF occu - a normal return to the 
system is made if eof flag icontrolled by MPL ) is set, 
otherwise an error return s made. An EOFTs legal only 
between external procedures. Note that object in source 
is processed before an EOF thus object in source may 
occur after the final prog am. 

Listing output is done by 'R INWRIT . The listing buffer 

for the annotated source i ; listbuf of size listsize; 

the first byte is used for carriage control. The actual 

physical output is done by the system routine SYSPUT 

which manages the SYSOUT s -stem file. PRINWRIT is used for all 

listing functions (annotat.^d source, generated code, etc.) 

and handles page titling, >age numbering, forms control, 

and line width formatting. The current page number is 

maintained in page , the cu rent line in pagelin . The 

type of listing line is pa sed to PRINWRIT so that the 

proper title may be used: 'A' selicts the symbol table, 

'Y' the sununary, and anyth ng else the source. The 

title skeleton is refcrenc d through titlept r and 

contains the date, tine, aid version which are built 

by MPL . 

Object output is done by 0\ RITE. The object buffer is 
o^jbuf of size objsize +1; an extra byte is added at the 
front (high-order position for carriage control when 
the object is listed v;ith 1 he H-toggle. The actual 
physical output is done by the system routine PUT 
which uses a file defined ly the compiler (unlike the 
above I/O) . The working bi Efers are objbufl and 
objbuf2 both of size o bjsi^ o+1, the FCB is objfcb . This 
file is opened (and closed) only if used; objecton is 
set when the file is openec . I/O errors are reported 
to the compiler which generates a compiler flag. The 
number of object records, even if not written, is 
maintained in objitem for i .^e by SUMMARY, 

The annotated source listirg is constructed by LIST , an 
error flag listing by FLAG, the symbol table listing by 
LISTST , the summary listinc by SUMMARY , the object 
listing by OWRITE, and the jode listing is begun by 
LST-ADR , continued by the cide generation routines and 
finished by OUT-WRT. 
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The listing of the annotated source is normally delayed 

a line to permit the level annotation to reflect translation 

status after line translation. The argument to LIST 

is a flag indicating if the listing of the next line is 

to be delayed. A call to LIST with the flag set is 

made before an error flag, the code, or the object is 

listed. The current state of the buffering is maintained 

in Ij stwait ; set means delay the next line. 

The sort algoithm used by LISTST to sort the symbol 
table is the classic Floyd tree sort (see Reference 7) ; 
it is an in-place sort whose sort t;.me is proportional 
to N*log(N), when N is the number of items. 

Formatted output is aided by FORMAT which fills an output 
buffcBr according to a format specification and a list 
of arguments. Text is transferred directly from the 
format specification to the output buffer with the exception 
of certain reserved formatting characters. A period ('.') 
causes decimal conversion of the next argument into the 
next 5 positions of tlie output buffer right justified 
with leading blanks. A dollar sign ('$') causes 
hexadecimal conversion of the next argument into the 
next 4 positions of the output buffer right justified 
with leading zeroes, A pound sign ('#') inserts the next 
argument as text in the next 2 buffer positions. A 
slash ('/') inserts a carriage return/line feed in the 
next 2 buffer positions; this character cannot be used 
with the listing file as it is incompatible with the line 
control in PRINWRIT . Formatted output to the listing 
file is performed by PRINT , to the console by TYPE,. 

Radix conversion from internal binary to external ASCII 
is performed by a set: of routines. The basic binary 
to decimal routine is B2010 which converts 32 bits to 
right justified form with leading zE-roes; B2D10L leaves 
the result left justified; B2DNR leaves the result right 
justified with leading blanks in a specified field 
width. The basic binary to hexadecimal routine is 
BIN2HEX which converts 4 bits to a hexadecimal character; 
3IN2H:EX2 converts 8 bits to 2 characters with leading 
zeroes; BIN2HEX4 converts 16 bits to 4 characters with 
leading zeroes. 
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6.3 UTILITIES 



The utility routines move (,ata, manipulate the location 
counters, search strings, , ncl generate diagnostics. 



A field is set from anothe: field with MOVE , a field 

is set to a character with SET , and a field is set to 

a symbol name with MOVE ST . In all cases the length of 

the target field is limitec to the range to 255 inclusive 

to protect against destroy ng program space. MOVEST uses 

the current symbol table ei try. 

The compiler maintains 3 It cation counters: pc (program 
counter) , s^ (stack countej ) , and xc (static counter) . 
They are incremented with _ NC-PC , INC-SC , and INC-XC 
respectively; S£ is decrem* nted with DEC-SC ( pc and 
xc cannot be decremented) . The increment (or decrement) 
is passed to these routine: in double size and all 
computation is performed ii double precision. This 
ensures that any overflow n the construction of the 
increment or in the iiicrem* nting itself is detected. 
The maximum value achieved by sc (1) (the outmost block 
with statements) is monitored in sclmax . 

INDEX provides a primitive substring capability. The 
prototype string is in comj iler infix format (see 
Section 5.2,3) with items : eparated by periods ('.'); 
the target string is :i n syiibol table string format (see 
Figure 6.4b) . INDEX returi s the ordinal item number of 
the target string in the p ototype string, or if not 
present. 

Flags (detected errors) art generated by FLAG , fouls 
(consistency checks) by PXDi L. The listing buffer for 
flags is f lagbuf of size 1_ stsize ; the first byte is 
used for carriage control. A flag count is maintained 
in aborts , blunders , error: , warnings , and warningt. All 
warnings are counted in wai ningt , only unsuppressed 
warnings in warnings . A m< ximum of errmax blunders and 
erros is allowed. The lint number of the most recent 
flag is maintained in last lag. Flags are listed only 
if the listing is sure not to generate another flag. 
The offending flags are se ected by the internal procedure 
LISTOK which currently always returns true. The processing 
of aborts avoids the possiJ ility of secondary aborts 
by temporarily suppressing aborts (X-toggle) . 
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The symbol table occapies all of unused memory from 
s tba se to 5 4K, a distance of textminO bytes (see Figure 
6.1a). Each entry consists of a 4"* widt.h4 (currently 
L6) byte fixed length part and variable-length supporting 
text. The fixed length entries are built from the bottom 
of the table up and at any moment occupy itemmax bytes. 
The variable length text is built from the top of the 
table down and at any moment has reached textmin bytes 
from the bottom of the table. When the fixed entries 
run into the variable text ( itemmax exceeds textmin ) 
the symbol table is full. All symt)ol table text is 
retained for eventual inclusion in the symbol table 
Listing; there is no way to discard an entry. 

Symbol table entries are referenced by the use of base 
addressing: stbase is the base address of the first 
entry, iteml^ ase the base address of the current entry 
of interest. The base addresses of successive entries 
diff2r by wi dth4 . 

The fixed-length part format of a symbol table entry is 
shown in Figure 6.4a. The name is stored in the descriptor 
format shown in Figure 6.4b. The use of most of the 
entry fields is described in conjunction with the symbol 
table listing in Section 3.3.7, the remainder are 
described here. The entry link field is used to link 
variables together, hold the do leval number for procedures 
and labels, and is a text pointer for literallys (byte 
address relative to stbase) . The ds'f field holds the 
definition line numljer, the ref lin<:. field a link (word 
index relative to stbase) to the lext reference; a 
link indicates the end of the refs^rence chain. The 
spare field indicates an active bas;- in a base chain, 
and an acti\'e parameter in a name list. 

Of tie 16 bytes in the fixed length entry, 5 are potentially 
unused. The high order byte of the length field is 
alwa/s since names are restricted to 255 bytes in 
length. The ref link field is unused if references are 
suppressed (R-toggle) in which case the def field may 
be regarded as extraneous. 

The variable -length text part of the syimlsol table consists 
of n.ame text, literally text, and references. Text may 
start on any byte, references are a(3justed, if necessary, 
to srart on an even byte so that hardware word indexing 
works;: this adjustment leaves an occasional unused byte. 
Name text :^s pointed to by the text pointer field, 
literally text by the entry link field (for literallys 
only I , and references by the ref link field. 
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To speed symbol entry location, symbol entries are 
addressed through an auxiliary hash table, hashtab , of 
size hashsize . The hash table is of fixed length; each 
hash table entry is a pointer to symbol table entry 
(as a base address); an unused hash table entry is 0. The 
hashing algorithm computes in initial hash table address 
and increment based on the symbol name. The block 
number (which is required to uniquely define a symbol) 
cannot be used as input to the hash function as it may 
change in the case of a forward label. The hash table 
length is chosen as prime so that secondary probes are 
guaranteed to hit each cell of the hash table. Hash 
table activity is monitored by noting the number of 
accesses, accesses and the amt±)er of hash table probes 
that result" in a collison, :olisons ; the total number of 
probes is accesses + coliso ns . 

Routines are provided to locate entries, add entries, 
put and get attributes, and compose attributes. The 
hash table entry of interest is always contained in 
hashloc , the symbol table e itry of interest in itembase . 
Except for routines which 1 acate an entry, the convention 
is followed that a routine vhich alters hashloc or 
itembase restores it. 

SEARCH locates an entry of the specified name at the 
specified block level. SEARCH contains the hashing 
algorithm. STATEST searches for the specified name at 
all active lex levels. Boti routines leave hashloc 
set to the located entry, or if none is present, to the 
place it will occupy; itembase is set only if the entry 
is successfully located. 

Entries are added with DEFS r and REFST . Using NEWENTRY , 
itembase is set to the next available value, hashtab ( hashloc ) 
to itembase ; the text pointer, length, block and lex 
fields are set (the current block is used for block and 
lex) ; the number of symbol cable entries, symbols , 
is incremented. Using INSERTST the name text is moved 
to the upper part of the symbol table. Should the symbol 
already exist DEFST and REF ST simply return with 
itembase set to the desired entry. 

DEFST is called when the desired symbol is the object of 
a definition: the symbol search occurs only at the 
current level. A new symbcL sets the fields noted above 
plus def and state. 
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REFST is called when the desired symbol is the object 
of a reference: the symbol search occurs at all lex 
levels. A new symbol sets just the fields noted above. 
If the symbol is environment (checked by NAME SAME ) and 
an old copy is found at an outer level / it is redefined 
at_-he current level. If the symtiol is new and is a 
built-in, the definition is made in block and the value, 
size, units, scope, state, and class fields set. 

Attributes are added to a symbol with PU TST . Field 
codes and field values are included in Figure 6.4a. 
The desired entry is specified by iteiTiba se. Attributes 
are extracted from an entry with G ETST v7hich is symmetric 
with respect to PUTST except for the fef field (code 9): 
PUTST adds a reference to the end of the current chain, 
GETST returns the ref field, rather than a ref element; 
the ref chain must be burst manually. Each addition to 
a reference chain increments the total reference count, 
refs . 

Several routines compose the attributes. BYTESIZE checks 
for units of byte and size of 1. LABDOBEG checks "for 
class of label, do, or begin. GAS Z , GISZ , and GPSZ 
translate the size and units field"in different ways. 
PROC-ID translates the class, block, scope, and state 
attributes into the different procedure types. VAR-ID 
redefines the class attribute. GET -LEX computes"lihe 
current differential lex level. 

ADD- REF is a short form of the PUT ST call for adding a 
reference to the reference chain. 

Symbol table entries are linked together with ENCHAIN and 

the chains are burst with DECHAIN . Chains are referenced 

by a 2 word descriptor that points to the head and 

tail elements of the chain as shown in Figure 6.4c. 

The chains work as FIFO lists: ENCHAIN adds to the tail 

and DECHAIN removes from the head." Internal chain links 

are maintained in the entry link field as entry base addresses; 

indicates the end of a chain. Note that an entry may 

be on only one chain at a time. The chains used are 

shown in Figure 6.4d. 
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Fig 6.4a 
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Figure (i.4a: S ymbol Table Entry 



Fig 6.4b 
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Pointer : 



descriptor 
pointer 



Descriptor : -^ 



text 

pointer 



text 
length 



Text : ^ 
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text length — ^ 



Legend : 



Name ; 



size (bytes) 
function 



Note: 



Descriptor pointer is a SB relative byte address, 
text pointer is a stbase relative byte address 



Figure 6.4b: String Format 
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Fig 6.4c 
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Pointers and entry links a e base addresses 



Figure 6.4c: Chain Format 
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Figure 6.4d: Use of Chains 
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6 . 5 SCANNER 



The scanner converts the s )urce stream into tokens, the 
smallest unit of syntactic significance. The language 
at hand in context-free: j token may be identified 
independent of the context in which it appears; this 
is accomplished at the cos: of reserving some identifiers 
for use exclusively as keywords. 

The main routine of the sc mner is TOKEN which returns 
the next token as a token :ode. The possible token 
codes are shown in Figure ^.Sa. 

If the token is a constant (code 1) the associated constant 
value is contained in valur ; which is of double size. 
If the token is a symJjol (code 2) the associated name 
text is converted directly to the descriptor string 
format of Figure 6.4b usina pointer ptr and descriptor 
desc. If the token is a s- ring (code 3) the associated 
string text is converted tn the same descriptor- referenced 
string as for symbol text .ibove; the conversion for a 
string, however, removes d( limiting quotes and collapses 
internal doubled single quotes into the single quote 
they represent. Also the ' irst 4 characters of a string 
are moved to value ; if thej e are less than 4, characters 
are left justified wi^h tr< iling zeroes. 

To gain speed, TOKEN does c 2 8-way branch on the first 
character of a token to access the proper token processor. 
The 28 token cases are shov n in Figure 6.5b. The special 
character emd operator tokens present no special problems; 
the semicolon token (';') increments the statement 
counter stmts . Constants ere processed by the auxiliary 
external routine CONSTUNT vhich checks for 32 bit 
precision overflow. Strinc s are processed by the 
auxiliary external routine STRING which does the quote 
elimination and checks for 25 5 character overflow. 
Identifier text is built hy the internal routine BUILD 
which IS optimized for speed and does case shift and 
checks for 255 character o\erflow. Identifiers are 
potentially (in the order cf precedence) keywords, 
literallys, or symbols. Keyword determination is made 
by the internal routines KI '/x. 

Literally determination is done by checking the symbol 

table for a symbol of this name and of class literally. 

Should a literally be present, the literally level is 

incremented and TOKEN recurs. Token recursion depth is 

maintained in tokenlev and Limited to maxlit ; tokenlev 

differs from litlev in some instances of (illegall 

literally loops. When a literally is active source text is taken 
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Ercm the literally text previously saved in the symbol 
table when the literally was defined. To mechanize 
literallys the literally level is maintained in l itlev 
where level is the source file. For each level 
litbase (litlev) contains the symJool table entry value of 
Ttein base of the active literally, litcursr ( litlev ) the 
E^hixacter count of unused text, rp tf lag (litlev) the 
repeat status of the current character, and charsave ( litlev ) 
the current character itself. 

Th€! scanner provides for double token reuse: the current 
and previous tokens are retained for possible reuse. 
The' reuse level is contained in re usele v. The first 
call to REUSE causes the next call to TOKEN to reuse 
the; current token. The second call to REUSE , without 
an intervening call to TOKEN, causes the next call to 
T0I:EN to reuse the previous token; a subsequent call to 
TOlSiN without an intervening call to REUSE causes TOKEN 
to'l^use the original token. Both REUSE and TOKEN 
protect against an illegal reuse level. The first 
token reuse is mechanized by swapj^ing ptr with p trold 
and tcode with tcode old. The second reuse just increments 
reuselev . 

Text from the source stream is distinguished as being 
composed of logical and physical characters. A logical 
character allows for leading blanks and comments and is 
processed by LOGCHAR ; the first character of any token 
is a logical character. LOGCHAR processes the toggles 
operators. A physical character is the next character 
of the source stream and is processed by PHYSCHAR ; 
the subsequent characters of most tokens are physical 
characters . 

Physical character processing provides for single 
character reuse. Reuse is invoked by a call to RPTCHAR 
which guards against double reuse. A repeat flag vector, 
rptflag, is maintained for each literally level. Physical 
character processing also processes early source record 
truncation (?-toggIe) and gets the next character from 
the source record or literally as appropriate. The 
current character of the source buffer, sobuf is indexed 
by cursor . 

Several routines compose the basic scanner routines for 
convenience. LOOK FOR looks for the specified token and, 
if absent, invokes reuse. SEMI looks for a semicolon 
token and, if absent, generates a flag. SEMI SCAN looks 
for a semicolon token and, if absent, generates a flag 
and scans tokens until a semicolon in encountered. 
SYM BOL reclassifies the next token as a non-identifier, 
new"symbol, old symbol, or keyword. K ONSTANT looks for 
a numeric constant (CONSTUNT) or string constant ( STRING ) . 
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Figure 6.5b: Token Cases 
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6.6 CODE GENERATION 



Code generation is organized by instruction type with a 
few supporting routines. The preparation of the code 
listing is begun by LST-ADR continued by the various 
OUT-xxxx routines and finished by OUT-WRT . The listing 
buffer for code is codebuf of length listsize ; the first 
byte is used for carriage c:)ntrol. 

Loader directives are built by OLT and loader records by 
OUT-REC. Directives are added in binary form until the 
current directive overflows the buffer. A record number 
is added, the record checks ammed, and finally the record 
is converted to hexadecimal form. The record is built- 
in buffer ob jbuf which is oE size objsize +1; objrecn holds 
the record number. The current buffer position is m 
ob jx and the last in lob jx . 

Pseudo-instructions are processed by OUT-ADDR (ADDR) , 
OUT- BYTE (BYTE) , OUT-WORD ( VORD) , and OUT-DBLE (DBLE) . 
Instructions are processed ;jy OUT-INST except for LDL 
handled by OUT-LIT , which processes all other literals 
as well. OUT-LWL handles tie case of a LWL instruction 
where the literal is an address. 

All these OUT-xxxx routines augment the code listing, 
generate loader directives, update the stack and program 
counters, and list the code listing. OUT-ADDR and 
OUT-LWL require that the address type be specified as 
they are used to construct addresses; OUT-BYTE , OUT -WORD , 
OUT-DBLE , and OUT-LIT require no address type as there 
is no addressing; OUT-INST determines the address type 
from the symbol table entry of the current symbol for 
those instructions that require an address. 

Size conversion (from doubla to word or form word to 
double) across a binary operator is handled by A-CVT 
for the assignment operators and B-CVT for the expression 
operators. Memory referencing is handled by GET-MODE 
which determines the hardware mode of the memory reference 
and generates accessing instructions (see Subsection 5.6.3) 
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6 . 7 PROGIIAM STRUCTURE 



MPL programs are structured in blocks and groups. Blocks 
occur as procedures and begins; groups occur as repeats, 
and the various do's. 

The current block nuiiiber is maintained in block which is 
used to qualify all symbol names. The outermost block 
(which contains only the external entry point) is block 0. 
The block number is incremented as each new block is 
entered. The current lex level is contained in lex and 
measures the nesting depth of the current active block. 
The lex level starts at and returns to at program 
end. For each active lex level, so ( lex ) contains the 
stack counter, block lex ( lex ) contains the block number 
(which differs from block as soon <is the first block 
is closed) , and pr oclex dex) contains the itembase 
of the name of tHF" current block (begin blocks usePthe name 
of the innermost active procedure block) . The lex 
level is limited to maxlex . 

The current do level is maintained in d on umber ; the 
outermost group is numbered 0. The do numbeT~is incremented 
as each new group is entered. The current do level 
is crontained in dole v and measures the nesting depth 
of the currently active group. The do level starts 
at and returns to at program end. For each active 
group, donest ( dolev ) contains the do number. The do 
level is limited to do max . 

The external procedure block has some special properties 
and is processed by EXTPROC which generates the loader 
title, record, console log entry, and loader begin 
program directive. The procedure type (main, interrupt, 
or regular) is determined jointly by EXTPROC and PROCH EAD. 
Following translation of the procedure body by PROCBOPY 
the final exit and loader directiveis are issued and all 
level counters are checked to ensure they have returned 
to 0. 

Internal begin blocks are handled by BLO C . They are 
signaled by the keyword BEGIN aftei the Tabel list. 
Any labels that were present will appear on labcha in 
and are converted to begin labels with an associated 
do number for labelled end checking by END-STMT. 

Procedure head processing, common to all procedures, 
is handled by PROCHEAD which is called from EXTPRO C 
and B LOCKSEN . The procedure is classified as" interrupt 
or regular, the lex level pushed by PUSH -LEX , and any 
parameters defined and enchained on parchain ; parameters 
are marked as undefined and are processed^fiJrther by 
DCLELEMT as they are declared. 
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When a block is entered the lex level is pushed by PUSH-LEX 
which is called from BLOC, I XTPROC , and P ROCHE AD . The 
lex and block are incremented, and the sc, proclex , and 
block lex vectors set. The r.aximum lex level achieved is 
maintained in lexdepth . Fir ally, the do level is pushed 
by PUSH-DO . 

When a block is terminated the lex level is pulled by 
PULL-LEX which is called on] y from END- STMT . The lex 
level is decremented and the do level pulled by PULL-DO. 
The main job of PULL- LE X is to update the forward reference 
tables . 



The forward tables are an a 
store forward label and pro< 
require later alteration. 
contains the itembase of th' 
of the point of reference, 
at the point of reference, 
forward tables with SAVE-RE 



ray of structures used to 
•edure references that may 
'or each element fwdbase 
I symbol, fwdlex the lex level 
ind fwdpc the program counter 

Entries are added to the 
' and removed with PURGEFWD. 



The current entry is indexe 3 by fwdptr which is limited 
to fwdmax . 

The action by PULL- LEX with regard to the forward tables is 



Class 


State 


Block 


Status in 
New Block 


Action 


Procedure 








Save 


Label 


Defined 


Other 
Current 




Save 
Purge 




Undefined 


Other 
Current 


Present 
Absent 


Save 
Convert 

Extract 



A saved entry is retained i 
is removed and the space oc 
entry changes the reference 
symbol in the block being e 
remains in tlie symbol table 
translation (but it is incl 
listing) . An extracted ent 
attributes in the symtjol ti 



or later use. A purged entry 
cupied reclaimed. A converted 

in forward table to the 
ntered; the original entry 
and plays no further part in 
uded in the symbol table 
ry changes the block and lex 
ble to the block being entered. 
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The.se actions are clarified from the language point of 
view. A defined label in the current block can no 
longer be referenced and so it is purged. A defined 
labtsl in an outer block may yet be redefined in an 
intermediate block and so it is saved. A defined label 
in an inner block v/ill already have been purged. An 
undefined label in an outer block is yet to be defined 
and so it is saved. An undefined label in an inner block 
will already have been extracted to the current block. 
An undefined label in the current block that does not 
appear in the new block is extracted to the new block 
in hopes that it will appear there. And finally, an 
undefined label in the current block that does appear 
in the new block is the same symbol and is converted 
to xt. 

When a forward label or procedure is defined, PURGEFWD 
is used to scan the forward tables. A matching procedure 
entry generates a fixup address. A matching label 
entry generates a fixup GOTO instruction. Non-matching 
entries are saved. 

When a group is entered the do level is pushed by PUSH-DO 

which is called from GROUP and PUSK -LEX. The dolev 

and d onumber are incremented and the donumber is s¥ved 
in do nest (d olev ) . 

When a group is terminated the do level is pulled by 
PULL -DO which is called from END- ST MT and PULL-LEX. 
PULL - DO decrements dolev. 

If the group is a do-case the do-case item index, caseitem , 
and nesting level, c ase lev , are maintained by GROUP 
for use by LIST in annotating the source listing. A 
stack of active case indexes is maintained in casebuf 
(cas e ptr) where the latest entry is the innermost active 
do- case. There is a size limit on caseptr of casemax. 
The first case is labeled and the" first nest labeled 1. 

Labeled end checking is performed in END -STMT and is 
performed only if the keyword END is followed by a 
symbol. If a block is being closed the lex level is 
pulled by P ULL- LEX (which invokes PULL-DO) . 
If a group is being closed the do level is pulled by 
PULL -DO. A symbol, if present, must already be a defined 
label or entry point, and must match the current do 
number. 
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6 , 8 DECLARATIONS 



The bulk of the declarations are contained in the 
declaration statements and are processed by DCL-STMT 
and PROCBODY . Entries are processed by EXTPROC or 
PROCHEAD which enchain the parameters on parchain . 
Label lists are processed l.y LABELS . 

PROCBODY loops on DCL-STMT until a non-declaration 
statement is found. DCL-ST MT loops on DCLELEMT until 
the declaration elements {separated by commas) are 
exhausted. 

DCLELEMT uses SYMBOL to adc each symbol to the symbol 
table as it is encountered. Only a parameter may already 
be present. Symbol processing is a function of symbol 
type. Literallys cause the literally text to be saved 
in the symbol table for later extraction by PHYSCHAR . 
External procedures, mterr al procedures, and micro 
procedures are processed without complication; the 
current external procedure sequence number is maintained 
in numberp . 

Variables are enchained on namchain. Should a name list 
item be a parameter, it will already appear on the 
parameter chain, and is marked as active with the spare 
field. The dimension of a variable or parameter is 
saved in the value field; scalars have dimension 0. 
After namchain is built, the size and area attributes 
(processed by SIZEATTR , AFEAATTR) are saved in the first 
name which is marked as such with the spare field; this 
first name may be on either the namchain or parchain and 
the attributes it contains are referred to below as 
common . 

When all attributes are in land the name list is 
reprocessed. If the common variable class is constant, 
namchain is burst and discarded. The common attributes 
are moved to the subsequent elements, the entry link 
field is used to hold the dimension, and the value 
field set. The first value will have been left in 
Pccons by AREATTR (which is aware of any needed word 
alignment) . 

If the common variable class is not constant, variables 
are moved from namchain to /archain copying common 
attributes. A parameter is reclassified as automatic; 
a based variable transfers -.he common base to the value 
field. The parameter chain is scanned (and then restored) , 
moving common attriubtes to those parameters marked as 
active (that is, appearing n the current name list) 
and an active parameter is narked as inactive. 
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When all declaration statements are in hand, P ROC BODY 

performs value allocation (which must be delayed 

in case parameters are defined after variables) . The 

parameter chain is burst and stack counter values 

assigned to the parameters. The variable chain is next 

burst and the dimension moved from the value field to 

the entry link field, and the f irst-in-name-list flag 

(spare field) reset. Automatic variables use sc ( lex) 

for the value, word aligning non-b^te initialized variables 

if not the first variable of a name list. Static 

internal variables use xc for the value v/ord aligning 

all non-byte variables. Static external variables use 

numberd, the external data sequence number, for the value. 

The extent of each variable is dete^rmined by DELTA . The 
function used is defined in Figure 5.2.1a. 

The required size attribute :.s processed by SIZEATTR . A 
simple size is handled by SIt4PLESZ , pointer and bit size 
directly. 

The optional area attribute is proc:essed by AREAATTR; if 
none is present, automatic class and internal scope is 
used. The external, static, and constant based area 
attributes are processed without complication. The 
variable based area attributes ensures that the base is 
of a legitimate class and is a backwards reference. A 
constant area attribute constructs a branch around the 
constant text in program space, if one is not already 
present ( consflag set); two p£ values are noted: consloc 
contains the branch location for later fixup by A REAATTR 
or P ROCBODY , and pccons contains tlie starting value for 
add:ci!ss allocations for use by DCL ELEMT . An initial 
area attribute closes an open constant branch and invokes 
SAVE-REF to save the SSP instruction locations in the 
ToFwlird tables for later fixup by : ?'ROCBODY . 

Initial or constant lists are handled by INITLIST ,, 
initial or constant strings by INI TSTR . The only difference 
between initial and constant lists is initial lists 
generate FILL instructions and round text to full words. 
Following value allocation, P ROCBO DY scans the forward 
tables and fixes up the SSP instru::tions generated for 
initial values. 
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6 . 9 STATEMENTS 



Statement classification and processing follows the 
organization of the syntax fairly closely. 

The highest level statement classification is between 
executable unit and an internal procedure. BLOCKSEN 
makes this distinction by looking for an entry point. 
No label or no procedure head indicates an executable unit. 
In the case of an executable unit, the nature of a possible 
label is saved in labf lag for later use by LABELS . In the 
case of an internal procedure the attributes of the 
entry point are validated against any previously declared 
attributes . 

An executable unit (handLec by EXUNIT ) is classified as an 
unconditional executable ur it ( UNEXUNIT ) or an if statement 

( IF-STMT ) . An unconditional executable unit is further 
broken into blocks (BI.OC) , groups ( GROUP ) , and statements 

( STMT ) ; statements are classified as null ( NUL-STMT ) , 
call ( CAL-STMT ) , or assignnent ( AS-STMT ) . 

An if statment ( IF-STM T) is parsed slightly differently 
than that shown in the foriral syntax. The syntax shown 
in Appendix L solves the dangling else problem by introducing 
a balanced executable unit. With a top-down parse, this 
mechanism is not required end the dangling else is processed 
directly using the syntax: 

if-statement : := 

ifclause executeibl e-unit [ELSE executable unit] 

if_clause : := 

[label-list] if-then 

if-then : := 

IF exp THEN 

The dangling else-clause is associated with the innermost 
unmatched then-clause. 

A return statement (RE T- STM T) ensures that a return value 
is present if and only if c ne was specified, and converts 
the return expression to the specified size. 

A go to statement ( GOTOSTMI ) accommodates the possible 
scoping configurations of the go to label, defining a 
new symbol if the label is new, or new in the current 
block. An entry is added to the forward table if the 
label is forward, or backward and in an outer block. 
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A l.ibel list (which is optional) is processed by LABELS 
called from IF-CLAUS and UNEXUNIT . LABELS resets" the 
lab(5l chain ( labchain ) , enchains all labels, and generates 
an SSP instruction. The first label, if any, will have 
been saved in lab flag by BLOCKSEN . An old label 
{satisfying a forward go to) is checked for validity, 
and corresponding entries in the forward table fixed 
up and purged. The do number of the label is inserted 
by BLOC or GROUP if the executable unit turns out to be a block 
or group; the symbol class is altered ac the same time 
to begin-label or do- label. 

The syntax alternatives are ordered so that label processing 
for the unconditional executable units precedes label 
processing for the if statement; this insures that the 
label chain is not reset before the do number is added. 
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6,10 EXPRESSIONS 



Expression processing follows the formal syntax of 
Appendix L with little comp Lication. The main routine is 
EXP and the lowest level routine for operand processing 
is NUM-PRI . Each operator precedence level has an 
associated routine that handles code generation for all 
operators of that precedence: S-EXP (or operators), 
LOG-TERM (and operator) , LOG- FACT (comparison operators) , 
NUM-EXP "(add operators) , NU M-TERM (multiply operators) , 
NUM-FACT (unary operators) . 

An expression is either conditional (handled by C-EXP ) , 
simple (handled by S-EXP ) , or invokes imbedded assignment 
which is handled directly in EXP . In the latter case, the 
first operand processed by NUM-PRI is later used as a 
detination. The mode of this embedded destination is 
saved by NUM-PRI in s refmod e for later use by EXP . 
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6.11 OPE BANDS 



NUM-PRI is the main iroutine for process;ing operands. 
A constant operand is handled directly. A procedure 
reference operand is handled by PROC-REF . A storage 
reference operand is handled by S -REF ; " srefmode is set 
for possible later use by EXP in processing imbedded 
assignment. An address function ('@') operand is handled 
in conjunction with VAR. A subexpression operand is 
handled by recurring on EXP . A PRTNUM function is 
handled directly; the procedure that is the argument to 
PRTNUM may be forward, backward, or external. 

Procedure references are processed by PROC-REF . The 
calling routine ( CAL-STMT for proceduri" invocation , 
NUM - PRI for function invocation) is specified so that 
the presence of a return value is known. The procedure 
may be forward, built-in, etc. Built-in procedures 
generate in-line code and require the correct nuirber and 
size of arguments. 

Storage references are processed by S-REF which calls 
REF which calls VAR . S-REF handles field selection, 
REF indirection, and VAR indexing. The resultant 
reference type is encoded by each routine. 

IN-SYM is used by P ROC-REF , VAR, K UM-PR I , and GROUP 

to check the symbol table for a de'fined "syirhiol when a 

symbol is referenced as an operand. An undeclared 

syiTbol is declared as word automatic with array organization 

if followed by a left parenthesis ('('). 
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6.12 SAMPLE MODIFICATIONS 



The scope of several natural compiler modifications 
is outlined in this section. 

• Default Toggle Setting Change : The default toggle 
settings are contained in SETTOGS . A change is made 
by altering the default settings therein. 

• Built-in Function Addition : Built-in functions are 
recognized in REFST . The name of the new built-in 
is added to the string built-ins and the symbol 
attributes to the corresponding position in the 
arrays values , sizes , and units . Code generation 
occurs in PROC-REf . Tlie opcode generated is added 
to biop and the code generation attributes to 
biargsz , bi#args , and biretsz . Any special code 
generation is dealt wi^h by program logic. 

• Operator Addition : Operators are recognized in TOKEN , 
A new keyword operator is added to the appropriate 
KEYx internal procedure. A new symbolic operator 

is recognized by progr.im logic driven by the cases 
table. In either case a new token code is returned 
for use by the routine of the expression processor 
corresponding to the desired precedence level. 

• Speed Enhancement : The basic translation strategies 
make any significant speed improvement unlikely. 
Further, speed improvenents will be masked by 

I/O times in most circumstances. Nevertheless, 
fine-tuning the scanner is the obvious candidate 
for speed improvement. The blank (and comment) 
scanning circuitry is "he most heavily used loop 
in the compiler. It comprises the first loop in 
LOGCHAR and the first F in PHYSCHAR . 

• Symbol Table Size Increase : Short of symbol table 
entry format alteration or compiler size reduction 

(see below) , a bigger ;>ymbol table requires more 
real memory and altereii symbol table addressing. 
The simplest approach s to place the additional 
real memory in consecu ive modules in bank 1 and 
alter the memory size determination in MPL that 
comprises the computation of stbaseO , stbase , and 
textminO . 
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Memory Size Reduction : A 32K byte compiler is feasible 
with unaltered translation algorithms if most listing 
features are sacrificed and a ininimail fixed I/O 
system is introduced. The symbol table listing 

( LISTST ) and program summary ( SUMMAR Y) would be 
eliminated entirely. The program listing would 
be converted to a simple sources listing with coded 
flags; this effectively eliminates FLAG , FORMJ^T , LIST , 
PRINT , and PRINWRIT , and the mnemonic tables from 
OUT-INS-T . All other extraneous features would be 
sacrificed as well: memory and stack checking 

( MEMCHECK ) , hash addressing of symbol table, cross 
reference fields in symbol table entry, etc. The 
resulting compiler would use memory roughly as follows: 



Item 


32K Compiler 


6 4K Compiler 


Code 


2 3K 


34K 


Operating System 


3 


16 


Stack 


4 


6 


Symt)ol Table 


2 


8 
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APPENDIX B: FLAGS — ORDERED BY NUMBER 



App B 



CLASS NUMBER SEVERITY 



DESCRIPTION 



/»SPARE»/ 
/»MISS »/ 
/»RANGE«/ 
/»MISS «/ 
/«RANGE»/ 

/'OTHER*/ 
/»MISS «/ 
/»ATTR »/ 
/»RANGE«/ 
/»OTHER*/ 

/«RANGE»/ 
/»ATTR */ 
/*ATTR */ 
/»MISS »/ 
/«ATTR »/ 

/»MISS */ 
/«MISS »/ 
/»MISS »/ 
/*MISS »/ 
/»RANGE»/ 

/»MISS »/ 
/»ATTR »/ 
/*OTHER«/ 
/«MISS «/ 
/»RANGE»/ 

/*RANGE«/ 
/»RANGE»/ 
/»MISS »/ 
/»MISS »/ 
/»RANGE»/ 

/«OTHER»/ 
/•OTHER*/ 
/•RANGE*/ 
/•RANGE*/ 
/*RANGE*/ 

/*SPARE*/ 
/*OTHER*/ 
/*I/0 */ 
/•OTHER*/ 
/•OTHER*/ 

/»I/0 •/ 
/•MISS */ 
/*ATTR */ 
/*ATTR */ 
/*RANGE*/ 

/*ATTR */ 
/»MISS */ 
/•MISS »/ 
/*MISS */ 
/*SPARE*/ 



MO 
Ml 
M2 
M3 
M4 

M5 

M6 
M7 
M8 
MP 

M10 
Mil 
M12 
MIS 
Mill 

M15 
M15 
MIT 
Ml 8 
M19 

M20 
M21 
M22 
M2 3 

mii 

M25 
M26 
M27 
M2S 
M2Q 

M30 
M31 
M32 
M33 
M34 

M35 
M35 
M37 
M^8 
M39 

M40 
M41 
M42 
M43 
M44 

m5 

M46 
M47 
MM 8 
MM 9 



A NO ENTRY NAl^E. JOB ABORTED' 

E STRING OVER 255 BYTES, TAIL IGNORED" 

E NO RIGHT PAREN, ASSUMED' 

'E BIT STRI' G RADix NOT 1 2 3 M , IGNORED' 

'E BAD BIT ; TRING DIGIT, IGNORED' 

E NO COLON ASSUMED 

'E SYMBOL A! READY DEFINED, SEE SYMBOL TABLE' 

W SYMBOL O'ER 255 BYTES, TAIL IGNORED' 

'W ";" IN GO!MMENT, IGNORED' 

'B DELTA LE) OVER 15. USED' 

'B SUBSCRIP' ON NON-DIMENSIONED VARIABLE, USED ANYWAY' 

w indirect;; ON on non ptr to variable, ptr to word assumed 

B NO subscript expression, SKIPPED' 

'B FIELD SE; SCT NEEDS WORD VARIABLE, ASSUMED' 



E NO LEFT . 
'B NO FIELD 
'B "^i'^ NO' 



'A 
'A 
'A 
'A 



'E 

y 

W 
'B 
'W 



NO expre: 

CHAR STR 

NO SYMBO; 
PRTNUM S' 
JUNK IN : 

NO expre; 

PROGRAM I 

STACK OV 
CONSTANT 
NO "THEr 
NO "ELS! 
50 BLUND^ 

MEMORY Bi 
SYMBOL T/ 
256 BLOCf 
16 LEX L! 
TOO MANY 



STACK OVI 
SOURCE P} 
HASH TABI 
HASH TABI 

OBJECT I( 
NO ASSIG^ 
OPERATOR 
UNDECLARI- 
TOC MANY 

KEYWORD I 
NO '■'PRQC 
NO ";^^ 
NO PARAMI 



A REN. ASSUMED' 

SELECT EXPRESSION, SKIPPED' 

FOLLOWED BY STORAGE REF , SKIPPED' 
3I0N, SKIPPED' 
MG OVER 4 CHARS, TAIL IGNORED' 

, SKIPPED' 

MBOL NOT A PROC NAME, SKIPPED' 

TATEMENT. TEXT SKIPPED TO NEXT ": 

SION OPERAND, SKIPPED' 

VER 65535, REDUCED MOD 2»*16' 

R 655^5, REDUCED MOD 2»*16' 
JVER 32 BITS, REDUCED MOD 2«»32' 
", ASSUMED' 

assumed' 

RS'aND errors, JOB ABORTED' 

D, JOB ABORTED' 

'3LE FULL, JOB ABORTED' 

3, JOB ABORTED' 

VELS. JOB ABORTED' 

NESTED LITERALLY "S, JOB ABORTED' 



RFLOW, JOB ABORTED' 
YSICAL EOF, JOB ABORTED' 
5 FULL, JOB ABORTED' 
5 90^ FULL, IGNORED' 

ERROR, JOB ABORTED' 
MENT OPERATOR (=, += , :=), IGNORED' 
NEEDS WORD DESTINATION, IGNORED' 
D VARIABLE, DECLARED AS WORD AUTO' 
'-^ORWARD REFS TO PROCS/LABELS/INITLISTS, SKIPPEl 

HFINED AS SYMBOL, DEFINED BUT NO REFS POSSIBL!- 
, ASSUMED 
A SSUMED 
TER, SKIPPED' 
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CLASS NUMBER SEVERITY 



DESCRIPTION 



/*MISS »/ 

/»MISS »/ 

/»MISS */ 

/»MISS »/ 

/»MISS */ 

/*MISS */ 
/*ATTR «/ 
/*ATTR */ 
/*ATTR «/ 
/*OTHER»/ 

/»RANGE»/ 
/*ATTR »/ 
/»ATTR »/ 
/»ATTR «/ 
/«ATTR */ 

/*ATTR */ 
/«ATTR */ 
/»ATTR »/ 
/«ATTR «/ 
/»RANGE»/ 

/»ATTR »/ 
/»SPARE«/ 
/«ATTR »/ 
/*ATTR »/ 
/*OTHER«/ 

/*RANGE»/ 
/*OTHER*/ 
/"OTHER*/ 
/«MISS */ 
/«SPARE«/ 

/«ATTR »/ 
/»ATTR »/ 
/*OTHER»/ 
/»OTHER«/ 
/*OTHER«/ 

/»OTHER«/ 
/*RANGE«/ 
/»MISS «/ 
/«MISS «/ 
/»ATTR */ 

/»ATTR «/ 
/»MISS */ 
/*MISS */ 
/»OTHER»/ 
/•'WSS »/ 

/»MISS »/ 

/«MISS »/ 

/*MISS »/ 

/«MISS »/ 

l*m.'S>Z */ 



M50 # 
M51 # 
MS 2 # 
M53 # 
MS 4 # 



'E MO EXTERNAL PROCHEAD, "MAIN USED ^ 
'W NO DECLARATION LIST ELEMENT, SKIPPED 
'W NO NAME LIST ITEM. SKIPPED 
'E MO CONSTANT, SKIPPED' 
'E NO STRING, SKIPPED' 



MSS # 'E NO INITIAL OR CONSTANT LIST ITEM, USED 

MS6 # ■'E PARAMETER NOT FULLY DECLARED, WORD USED 

MS7 # 'E INTERRUPT PROC DECLARED WITH LEX>1, USED AS DECLARED 

M58 # 'E UNSATISFIED FORWARD LABELS OR PROCS, SEE SYMBOL TABLE 

M59 # "E JUNK IN DCL STMT, TEXT SKIPPED TO NEXT , OR ; 

M60 # 'W EXTERNAL SYMBOL OVER 8 CHARS. TAIL IGNORED' 

M61 # 'E STRING NEEDS BYTE SIZE, TREATED AS BYTE 

M62 # 'W STRING LENGTH DOES NOT MATCH DIMENSION, IGNORED 

M6^ # 'W INITIAL LIST TOO LONG, USED ANYWAY 

M6i! # 'W CONSTANT LIST TOO LONG OR SHORT, USED ANYWAY 

M65 # 'E BASE VARIABLE MUSI BE BACKWARD REF, CBASE=0 USED' 

M66 # 'B BASE NOT SCALAR STORAGE REF, USED ANYWAY 

M67 # 'E HAD SIZE, WORD USED' 

M68 # 'E BAD BIT SIZE, BIT('4) USED 

M6Q # 'W INITIAL OR CONSTANT VALUE TOO BIG, TRUNCATED ON LEFT 



M70 # 
M71 // 
M72 # 
M7- 



■'B PARAMETER t4AY NOT HAVE AREA ATTRIBUTE, SEE SYMBOL TABLE' 

'W ' 

'E BASE MISSING, CBA5.E=0 USED 

'E PROC SIZE MISMATCH, NEW SIZE USED 

'B NO "= IN ITERATIVE DO, ASSUMED 

■'E CONSTANT OVER 16 BITS, REDUCED MOD 2»»16' 

'W DO"S NESTED TOO [lEEP, NEST CHECKING INVALID 

'B TOO MANY DO CASES, IGNORED 

'B NO "TO" IN ITERATIVE DO, ASSUMED 

'W ' 



M7^ # 

M?^ # 
M76 # 
M77 # 
M78 # 
M7Q # 

M80 # 'B BAD "BASED" NESTING, IGNORED' 

M81 # 'B VARIABLE MUST BE STORAGE REF, IGNORED 

M82 # "E END IDENTIFIER MUST BE DO-LABEL/BEGIN-LABEL/ENTRY, IGNORED ' 

M8 3 # 'E LABEL ON END DOES HOT MATCH CURRENT BLOCK, IGNORED 

M8I4 # 'E LABEL ON END NOT DEFINED, IGNORED' 

M8t # 'W OVER 32765 DO BLOCKS, NEST CHECKING INVALID' 

M86 # 'W STACK UNDERFLOW (MAY BE DUE TO ANOTHER FLAG), IGNORED' 

M87 # 'B NO PROC REE AFTER "CALL". IGNORED 

M8ti # 'B NO LABEL REF AFTER "GO TO ', IGNORED 

M8q a 'E CURRENT PROC CANNOT RETURN A VALUE, IGNORED 

MqO # 'B CURRENT PROC MUST RETURN A VALUE, IGNORED' 

MQI # 'B NO STATEMENT AFTER "THEN", IGNORED' 

Mq2 # 'B NO STATEMENT AFTER "ELSE". IGNORED 

MQ^ # 'B EMBEDDED ASSIGNMENT DOES NOT ALLOW FIELD SELECT, IGNOliED 

Mgii # "B NO PROC ARG, IGNORED' 

MqS # 'B BAD NUMBER OF ARCS TO BUILTIN PROC, ACCEPTED' 

M96 # "B BAD ARG SIZE FOR BUILTIN PROC, ACCEPTED' 

M97 # 'B OVER 2S2 WORDS OF PROC ARCS, REDUCED MOD 252 

Mq8 # 'B "%" ILLEGAL WITH BASED VARIABLE OR CONSTANT. IGNORED 

Mqq # 'B CONSTANT C^INNOT Bf] A DESITINATION , USED ANYWAY 
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APPENDIX C: FLAGS 



ORDERED BY SEVERITY 



App C 



CLASS NUMBER SEVERITY 



DESCRIPTION 



,/*SPARE»/ 
, /"RANGE*/ 
,/»OTHER*/ 
,/«ATTR «/ 
,/*RANGE»/ 

,/»SPARE»/ 
,/»OTHER»/ 
,/*MISS »/ 
,/»MISS »/ 
,/*SPARE»/ 

,/»MISS «/ 
,/»MISS «/ 
,/*RANGE»/ 
,/»ATTR «/ 
,/*ATTR »/ 

,/*ATTR »/ 
,/»RANGE»/ 
, /"SPARE*/ 
,/*OTHER»/ 
,/»SPARE«/ 

,/»OTHER«/ 
, /"RANGE*/ 



W A R K I M ( S 

MO # 'W " 

M8 # y SYMBOL OVER 255 BYTES, TAIL IGNORED' 

M9 # ,W : IN COMMENT, IGNORED' 

^]^ ! 'J^ INDIRECTION ON NON PTR TO VARIABLE, PTR TO WORD ASSU^IFD 

M19 # W CHAR STRING OVER H CHARS, TAIL IGn6rED' 

M35 # 'W ' 

M39 # > HASH, TABLE, 90$ FULL. IGNORED' 

m46 # ,W NO ;;PFDC ' ASSUME^' 

M47 # ,'W NO ";", ASSUMED' 

M49 # W 



M51 # 
M52 # 
M60 # 
M62 * 
M63 # 

M64 # 

M69 # 

M71 I'f 

M76 # 

M79 if 



,W NO DECL\RATION LIST ELEMENT, SKIPPED' 

,W NO NAME LIST ITEM, SKIPPED' 

,W EXTERNA . SYMBOL OVER 8 CHARS, TAIL IGNORED' 

,W STRING .ENGTH DOES NOT MATCH DIMENSION, IGNORED' 

W I\IITIAL LIST TOO LONG, USED ANYWAY' 



'W 
'W 
'W 
'W 
'W 



CDNSTAN!^ LIST TOO LONG OR SHORT, USED ANYWAY' 
IMxTIAL OP CONSTANT VALUE TOO BIG, TRUNCATED ON LE^^'T' 

DO"S N -STED TOO DEEP, NEST CHECKING INVALID' 



M85 # y OVER 32^65 DO BLOCKS, NEST CHECKING INVALID' 

M86 # W STACK U IDERFLOW (MAY BE DUE TO ANOTHER FLAG), IGNORED 



ERROR 



,/»RANGE*/ 
,/*MISS */ 
, /"RANGE*/ 
,/*OTHER*/ 
,/*MISS *,/ 

,/*ATTR */ 
,/*MISS */ 
,/*RANGE"/ 
,/"ATTR »/ 
,/"MISS */ 

,/"MISS »/ 
,/"MISS "/ 
,/"MISS »/ 
,/»ATTR »/ 
,/*ATTR */ 

,/*ATTR */ 
, /"OTHER*/ 
,/»ATTR »/ 
,/*ATTR */ 
,/"ATTR «/ 

,/*ATTR "/ 
,/*ATTR "/ 
,/*ATTR »/ 
, /"RANGE"/ 
, /"OTHER*/ 

,/»OTHER*/ 
, /"OTHER*/ 



M2 # 
M3 # 

Mi] it 

m # 
m # 



M7 # 

Ml 5 # 

M26 # 

MU5 # 

M50 # 

M53 # 
M54 # 
M55 # 
M56 # 
M57 # 

M58 # 
M59 # 
M61 # 
M65 # 
M67 # 

M68 # 
M72 # 
M73 # 
M75 # 
M82 # 

M83 # 
MS 4 # 



,E STRING -VER 255 BYTES, TAIL IGNORED' 
,E NO RICH' PAREN, ASSUMED' 
,E BIT r-TR'NG RADIX NOT 1 2 3 4 , IGNORED' 
,E B\D BIT STRING DIGIT, IGNORE)!)' 
E NO COLOi, ASSUMED' 

,'E SYMBOL iLREADY DEFINED, SEE SYMBOL TABLE' 

,E N:) LEFT PAREN, ASSUMED 

_E CONSTAN • OVER 32 BITS, REDUCED MOD 2**32' 

Kf^YWORD DEFINED AS SYMBOL, DEFINED BUT NO REFS POSSIBp 

NO EXTE NAL PROCHEAD, "mAiN" USED' 



'E 
'E 



,'E NO CONS ANT, SKIPPED' 
_E NO STRIiG, SKIPPED' 



,ij iN',^ oi nx )u , o[s.±rrc,u 

,E NO INIT AL OR CONSTANT LIST ITEM, USED' 
E PARAMETER NOT FULLY DECLARED, WoliD USED' 
E IMTEPRU T PROC DECLARED WITH LEX>1, USED AS DECLARED 



SEE SYMBOL TABLE 
" " OR ":" 



,E UNSATISl lED FORWARD LABELS OR PROCS, S 
,E JUNK IN DCL STMT, TEXT SKIPPED TO NEXT 
,E STRING ■ SEDS BYTE SIZE. TREATED AS BYTE' ' 
,E BASE VA: lABLE MUST BE BACKWARD REE, CBASE = USED' 
E BAD SIZl , WORD USED 

'E BAD BIT SIZE, BIT(4) USED' 
,E BASE mi; SING, CBASE=0 USED' 

,E ppoc si;e mismatch, new size used' 

,E CONSTAN': OVER 16 BITS. REDUCED MOD 2*" 15" 
E END IDEVTIFIER MUST BE DO-LABEL/BEGIN-LABEL/ENTRY , IGNORl-n 

;e LABEL 0^ END DOES NOT MATCH CURRENT BLOCK, IGNORED' 
E LABEL or END NOT DEFINED, IGNORED' 



Ap'^ c 
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CLASS NUMBER SEVERITY 



DESCRIPTION 



,/*RANGE*/ 
/*ATTR »/ 
/»MISS »/ 
/*ATTR */ 
/»MISS */ 

/»MISS */ 
/*MISS »/ 
/«MISS »/ 
/»ATTR */ 
/»OTHEF»/ 

/*MISS «/ 
/»RANGE«/ 
/"RANftE*/ 
/»MISS */ 
/«MISS «/ 

/»MISS */ 
/»ATTR »/ 
/»ATTR »/ 
/»RANr.E;«/ 
/»MISS »/ 

/»ATTR »/ 
/»ATTR »/ 
/*OTHER«/ 

' K /-\ rri r T r? Ti » / 



/»OTHER»/ 
'*MISS •' 



» / 



/*ATTR »/ 
/*ATTR »/ 
/*MISS */ 
/*MISS */ 
/»ATTR «/ 

/*ATTR */ 
/»MISS */ 
/»MISS */ 
/"OTHER*/ 
/»MISS »/ 

/•MISS */ 
/»MISS «/ 
/«MISS »/ 
/«MISS »/ 



BLUNDERS 

M10 # "E DELTA LEX OVER V\ , USED' 

Mil # "B SUBSCRIPT ON NON-DIffiNSIONED VARIABLE, USED ANYWAY 

Ml 3 # "B NO SUBSCRIPT EXPRESSION, SKIPPED 

Ml 4 # "B FIELD SELECT NEEDS WORD VARIABLE, ASSUMED 

Ml 6 # "E NO FIELD SELECT EXPRESSION, SKIPPED 

M17 # 'B "9" NOT FOLLOWED BY STORAGE REF , SKIPPED' 

Ml 8 # "B NO EXPRESSION, SKIPPED' 

M20 # 'B NO SYMBOL, SKIPPED' 

M21 # 'B PRTNUM SYMBOL NO" A PROC NAME. SKIPPED 

M?? # 'B JUNK IN STATEMEN':;, TEXT SKIPPED TO NEXT ; 



M2 3 # 

M2l( # 

M25 # 

M27 # 

M28 # 

M^l # 

M4 2 # 

M4 3 // 

MUI| /( 

M4 8 # 

M66 # 

M70 # 

MY 4 # 

M77 # 

M78 # 



M80 /^ 
M81 # 
M87 # 
M88 # 
M8CI 



MQO 
MQ1 
Mq2 
M9'-^ 
M9!+ 



Mq5 # 
MQS # 
M97 # 
M98 # 
M99 # 



B NO EXPRESSION OPERAND. SKIPPED 

P PROGRAM OVER 65515, REDUCED MOD 2**1 6' 

B STACK OVER 65535 REDUCED MOD 2*»16 

B NO '"'THEN", ASSUMED' 

B NO "ELSE", ASSUMED' 



B NO ASSIGNMENT OPERATOR 



B OPERATOR MEEDS WORD D 
B UNDECLARED VARIABLE 



)estiniati6n! 



, IGNORED' 
GNORED' 



P NO PARAMETER. SKIPPED' 



P TOO MANY TORWARD R5 



DECLARED A^ WORD AUTO ' 
,T0 PROCS/LABELS/INITLISTS, SKIPPED 



B BASE MOT SCALAR STORAGE REF, USED ANYWAY 

B PARAMETER MAY NOT HAVE AREA ATTRIBUTE, SEE SYMBOL TA'BLE' 

H NO " = " IN ITERATIVE DO, ASSUMED' 

B TOO MANY DO CASES, IGNORED' 

P NO "TO" IN ITERATIVE DO, ASSUMED' 

'H BAD "BASED" NESTING, IGNORED' 

;r variable must BE STQRAGE^REF^ IGNORED 



NO PROC REF AFTER ' CALL' , 

NO LABEL REF AFTER "GO TO 

CURRENT PROC CANNOT RETURN 



GNORED 

IGNORED' 
VALUE, IGNORED' 



'P 
'P 

'P 



CURRENT PROC MUST RETURN A VALUE, IGNORED 
NO STATEMENT AFTER "THEN", IGNORED' 
NO STATEMENT AFTER "ELSE", IGNORED' 
EMBEDDED ASSIGNMENT DOE 
NO PROC ARG, IGNORED' 



NOf ALLOW FIELD SELECT, 



[GN)RED' 



E,AD NUMBER OF AFGS TO BUILTIN PROC, ACCEPTED 
EiAD ARG SIZE FOR BUILTIN PROC. ACCEPTED' 
OVER 252 WORDS Cr PROC ARCS, REDUCED MOD 252 
"«" ILLEGAL WITH BASED VARIABLE OR CONSTANT, 
CONSTANT CANNOT '3E A DESTINATION, USED ANYWAY 



IGNOR^^D' 



ABORT 



/»MISS «/ 
/»RANGE»/ 
/*OTHER«/ 
/«OTHER*/ 
/»RANGE*/ 

/«RANGE»/ 
/*RANGE«/ 
/*OTHER*/ 
/*I/0 »/ 
/*OTHER«/ 



Ml 
M29 



# 'A NO ENTRY NAME, JOB ABORTED' 

# '/s 50 BLUNDERS AND ERRORS, JOB ABORTED' 



M30 # 'A MEMORY BAD^ JOB AB0RTe6' 



M31 

M32 



M33 # 

M3i4 # 

M35 # 

M"-^7 # 

M38 # 



A SYMBOL TABLE FULL, JOB ABORTED' 
'A 2 56 BLOCKS, JOB ABORTED' 



16 LEX LEVELS, . 
TOO MANY NESTED 
STACK OVERFLOW, 
SOURCE PHYSICAL 



OB ABORTED 

.ITERALLY"S, JOB ABORTED' 
JOB ABORTED' 
EOF, JOB ABORTED' 
A HASH TABLE FULL, JOB ABORTED' 



,/*I/0 



M40 # 



OBJECT 10 ERROR, JOB ABORTED' 
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APPENDIX D: FLAGS -- DETAILED DESCRIPTION 

(Warning) -- 
Spare 

1 (Abort) : No Entry Name, ^ob Aborted — 

No entry name was found f < )r the external procedure. The 
cursor indicates where tho entry name was expected. The 
job is aborted. If the a;)ort is suppressed the compiler 
will not function correct y .. 

2 (Error) : String Over 255 Bytes, Tail Ignored — 

The body of a string, not including the delimiting quotes 
and after collapsing consecutive single quotes into the 
single quotes they repres-nt, exceeds 255 bytes. The 
cursor points the last va id byte. Bytes beyond the 2 55th 
are ignored and compilation continues. This flag is usually 
caused by a missing trail ng quote. 

3 (Error) : No Right Paren, Assumed — 

A right parenthesis ( ' ) ' ) is required at the point indicated 
by the cursor but was not found. Its presence is assumed 
and compilation continues 

4 (Error) : Bit String Radi> Not 1 2 3 or 4 , Ignored — 

The radix, indicated by t] e cursor, specified for a bit 
string constant is not 1 binary) , 2 (quaternary) , 3 
(octal) , or 4 (hexidecimal ) . The current radix remains in 
use and compilation crontirues. 

5 (Error) : Bad Bit String I igit, Ignored — 

The current digit, indicated by the cursor, in a bit string 
constant is not in the rar ge to <current radix -1>. The 
offending digit is ignorec and compilation continues. 

6 (Error): Mo Colon, Assume d — 

A colon ( ' : ' ) is required at the point indicated by the 
cursor but was not found. Its presence is assumed and 
compilation continues. 
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7 fy^^,-..-)_-_ ^Ym}^n^ Al ready Defined, S 5e Symbol Table 

The symbol indicated by the cursor was previously defined 
xn the same scope. The attributes given to the symbol _ 
are a mixture of the attributes of the multiple definitions 
as snown in the symlaol table listing. Compilation continues 
and secondary flags can be expected.. 

8 (Warning): Symbol Over 255 Bytes, Tail Ignored — 

The name of a syn^ol exceeds 255 bytes. The cursor indicates 
the last valid byte. Bytes beyond the 255th are ignored 
and compilation continues. 

9 (Warn ing): ';' in Comment, Ignored — 

A semicolon ( ' ; ' ) is present in a comment as shown by 
the cursor. It is ignored and comfilation continues. 
Usually this warning is caused by a missing close comment 
operator ('*/')- This warning does not apply to a question 
mark comment (see Appendix F) . 

10 j_TVKmd_er) : Delta Lex Over 15 , Used_ -- 

A lex level difference of more than 15 is necessary at the 
point indicated by the cursor to generate code. A delta 
lex of is used and compilation continues. (The current 
compiler will generate Abort 33 before Blunder 10) . 

11 ( B 1 u nder) : Subscript on Nondimens: - oned Variable, Used Anywa y 

A subscript, indicated by the cursor, modifies a variable 
that was not dimensioned. Code is generated as if the 
variable v/as dimensioned and compilation continues. 

12 (War ning) : Indirection on Non Ptr to Variable, Ptr to 
Worij" Assum ed — 

The indirection operator ('(?'), inculcated by the cursor, 
has been applied to a variable that was not declared as 
a pointer. A size of POINTER TO WORD is assumed and 
comoilation continue 



ra . 



13 (Blu nder) : No Subscript Expression, Skipped — 

A subscript expression is required at the point indicated 
by the cursor. Subscript code generation is skipped 
and compilation continues. 
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14 (Blunder) : Field Sele ct N eeds Word Variable, Assumed — 

The field select operator '$'), indicated by the cursor, 
has been applied to a vari; ble not declared as a word. Code 
is generated as if word wa declared and compilation 
continues . 

15 (Error) : No Left Pare n, A: ;sumed — 

A left parenthesis (' (') i; required as the point indicated 
by the cursor. Its presen -e is assumed and compilation 
continues . 

16 (Blunder) : No Field S elec , Expression, Skipped -- 

A field select expression s required at the point indicated 

by the cursor but is missi ig„ Code generation for the 

field select expression is skipped and compilation continues. 

17 (Blunder): '@' Not F ollow ed By Storage Ref, Skipped — 

t 

The address operator ('@') indicated by the cursor is 
not followed by a storage reference , Code generation 
for the address operator i -, skipped and compilation continues. 

18 (Blunder) : No Expression, Skipped — 

An expression is required it the point indicated by the 
cursor but is missing. Cole generation for the expression 
is skipped and compilation continues. This flag is a 
catch-all when the exact nature of the missing expression 
is not diagnosed, 

19 (Warning): Char String Ov sr 4 Chars, Tail Ignored — 

A character string used as a constant contains more than 
4 characters. The cursor ooints to the last character of 
the offending string. Characters beyond the 4th are ignored 
and compilation continues. 

20 (Blunder): No Symbol, S kipped — 

A symbol is required at th 3 point indicated by the cursor 
but is missing. Code generation for the symbol is skipped 
and compilation continueis. 

21 (Blunder) : PRTNUM Symbol ^ot a Proc Name, Skipped — 

The symbol, indicated by t ne cursor, is the object of the 
PRTNUM operator but is not a procedure name. Code generation 
for the PRTNUM operation 2 s skipped and compilation 
continues . 
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2 2 (BluJider) : Junk in Statement, Tex t Ski pped to Ne xt ' ; ' -- 

A statement cannot be decoded at the point indicated by 
the cursor. Source text is skipped until the next 
delimiting semicolon ( ' ; ' ) is found. (Semicolons appearing 
ina comment or string constant are skipped as well.) 
This flag is a catch-all when a more specific diagnostic 
is aot provided for a faulty executable statement. 

2 2 (Bla nder) : No Expression Operand, Skipp ed — 

An operand (either a variable or constant) is required 

at the point indicated by the cursor but is missing. 

Code generation for the operand is skipped and compilation 

continues.. 

2 4 (Blu nder): Program Over 65535, Reduced Mod 2**16 — 

The location counter for program space (program counter) 
is over 65,535 bytes as of the point indicated by the 
cursor. Overflow in the program counter beyond 16 bits 
is ignored and compilation continues. A common program 
counter is used for all procedures nested in an external 
procedure . 

2 5 (Bl under): Stack Over 65535, Redu c ed Mod 2**16 -- 

The location counter for stack space (stack counter) is 
over 65,5 35 bytes as of the point ..ndicated by the cursor. 
Overflow in the stack counter beyond 16 bits is ignored 
and compilation continues. A separate location counter 
is used for each procedure nested ;.n an external procedure. 
This flag is usually caused by an array of excessive size. 

2 6 (Err or): Constant Over 32 Bits, R e duced Mod 2**32 — 

A constant requires more than 32 bits of precision. The 
cursor points to the last valid contribution to the constant. 
For a numeric constant, overflow beyond 32 bits is lost; 
for a string constant, characters beyond the 4th are lost; 
in both cases compilation continues. For the purposes of 
this flag, a constant is considered a 32 bit (unsigned) 
magnitude number. 

2 7 (Blunder): No 'THEN ' , Assume d — 

A then-clause is required in an if -statement or if-expression 
at the point indicated by the cursor, but the keyword 
THEN is missing. Its presence is assumed and compilation 
continues . 

2 8 (Blunder): No 'ELSE', Assume d — 

An else-clause is required in an if-expression 
at the point indicated by the cursor, but the keyword ELSE 
is missing. Its presence is assumed and compilation 
continues . 
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29 (Abort) : 50 Blunders and Errors, Job Aborted — 

The blunder or error indicated by the cursor is the 50th. 
Compilation is aborted. ]f the abort is suppressed, 
compilation continues norrally. The abort is issued only 
once on the 50th offense. Warnings and aborts are not 
included in the blunder ard error count. 

30 (Abort) : Memory Bad, Job Aborted -- 

A memory checksum discrepcncy has occurred at the point 
indicated by the cursor. Compilation is aborted. If 
the abort is suppressed cc mpiler behavior is unpredictable. 
See Section 4.4 for a discussion of memory checking. 

31 (Abort) : Symbol Table Full, Job Aborted -- 

The symbol table is full £ s of the point indicated by the 
curosr. Compilation is alorted. If the abort is suppressed, 
compiler behavior is unpredictable. See Section 2.3 for 
a discussion of remedial e ction. 

32 (Abort): 256 Blocks, Job Aborte d — 

The block indicated by the cursor is the 256th, exceeding 
the capacity of the compiler. Compilation is aborted. 
If the abort is suppressec , compiler behavior is unpredictable. 
The only remedy for this c ondition is to rewrite the program 
to use fewer blocks. 

3 3 (Abort) : 16 Lex Levels, . ob Aborted - - 

The block indicated by the cursor is at the 16th lex level 
exceeding the capacity of the compiler. Compilation is 
aborted. If the abort is suppressed, compiler behavior 
is unpredictable. The only remedy for this condition is 
to rewrite the progreim to use few lex levels. 

34 (Abort) : Too Many Nested Li terallys, Job Aborted -- 

The literally indicated b^ the cursor requires too many 
references to other nestec literallys. 
Compilation is aborted. ] f the abort is suppressed, 
compiler behavior is unpredictable. See Section 2.3 for 
a discussion of literally nest depth. Usually this flag 
is caused by a loop in a .": iterally chain. 

35 (Warning) -- 
Spare 
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36 ( Abort) : Stack Overflow, Job Aborted - — 

The stack used by the compiler at compilation time has 
overflowed at the point in the user's program indicated 
by the cursor. Compilation is aborted. If the abort 
is suppressed, compiler behavior is unpredictable. See 
Section 2.3 for a discussion of compile -time stack use. 

37 (Abort) : Source Physical EOF, Job Aborted — 

An unexpected end-of-file has been encountered on the source 
file. Compilation is aborted. If the abort is suppressed, 
compilation continues normally; the input file of course, 
may be undefined after an EOF. An EOF is legitimate only 
after the end of an external procedure and before the 
entry name of an ensuing external procedure; comments and 
loader text may appear in this interprogram region. 

38 (Abort): Hash Table Full, Job Aborted -- 

The hash table used by the symbol table is full as of the 
point indicated by the cursor. Compilation is aborted. 
If the abort is suppressed, compiler behavior is unpredictable 
See Section 2.3 for a discussion of hash table use. 

39 (Warn ing) : Hash Table 90% Full, Ignored -- 

The hash table used by the symbol t.able is 90% as of the 
point indicated by the cursor. No action is taken and 
comfdlation continues. Compilation speed will degrade 
as the hash table approaches 100% i"ull, at which time 
compilation is aborted; see iVbort 38. 

40 (Abor t): Object 10 Error, Job Aborted -- 

An irrecoverable I/O error has occurred v>7ith the object 
file'. Compilation is aborted. If the abort is suppressed, 
compilation will continue normally; however, the contents 
of the object file may be flawed. If the abort occurs 
before any object has been written the problem likely 
lies with the assignment or opening of the object file. 
If the abort occurs aifter some objeict has been written, 
the problem is necessarily w:.th the data transfer to the 
obJE'Ct file. 

41 (Blun der): No Assignnient Operator (-,+-,: = ), Ign ored — 

An aissignment operator is expected at the point indicated 
by the cursor. Code generation for the missing assignment 
operator is ignored and compilation continues. 
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42 (Blunder) : Operator Needs Word Destination, Ignored -- 

The operand indicated by the cursor must be of size word 
but is otherwise declared. Code generation for the 
operation is ignored and compilation continues. 

4 3 (Blunder): Undeclared Variable, Declared as Word Auto -- 

The variable indicated by the cursor is undeclared. It is given 
automatic class, internal scope, word size, and dimension as 
written, but no stack space is allocated. Compilation continues, 

4 4 (Blunder): Too Many Forwards Refs to Procs/Labels/Initlists , 
Skipped -- 

The forward reference indicated by the cursor overflows 
the forward table. The reference is not saved and will 
never be resolved. Compi] ation continues. Forward 
references to procedures, labels, and initial lists share 
a common table. A forwarc reference to a procedure is 
resolved (making room fc:)r another) when the procedure 
entry is encounted; a leibe L is resolved when the label 
is encountered; an initial list is resolved when the first 
executable statement of a procedure is encountered. 

45 (Error) : Keyword Defined as Symbol, Defined But No 
Refs Possible — 

The keyword indicated by t ^e cursor is being defined as 
a symbol. The declaratior is completed but subsequent 
references to the keyword as a symbol will result in 
further flags. Compilatica continues. 

46 (Warning) : No ' PROC ' , As£ umed — 

The keyword PROC (or PROCEDURE) is required at the point 
indicated by the cursor bit is missing. Its presence is 
assumed and compilation continues . 

4 7 (Warning) : No ' ; ' , Assume d -- 

A semicolon ( ' ; ' ) is requ; red at the point indicated by 
the cursor, but is missinc . Its presence is assumed 
and compilation continues. 

4 8 (Blunder): No Parameter, Skipped — 

A parameter is required at the point indicated by the 
cursor but is missing. Tire declaration of the missing 
parameter is skipped and compilation continues. 
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49 (Warn ing) -- 
Spai"e 

50 (Err or) : No External Prochead, 'MAIN' Used — 

An €!xternal procedure? head is required at the point 
indicated by the cur<;or, but is missing. A head of 
'MAIN PROCEDURE' is used and compilation continues. 

51 (Warning) : No Declaration List Element <> Skipped -- 

A declaration list element is expected at the point indicated 
by the cursor but is missing. Declaration of the missing 
elenent is skipped and compilation continues. 

5 2 (Warning): No Name List Element, Skippe d -- 

A name list element (of a declaration list element) is 
expected at the point indicated by the cursor but is missing. 
Declaration of the missing element is skipped and compilation 
conliinues . 

5 3 (Eri r or) : No Constant, Skipped -- 

A constant is expected at the point indicated by the 
cursor but is missing. Code genercJtion for the missing 
constant is skipped and compilation continues. 

5 4 (Err or) ; No String, Skipped -- 

A stiring is expected at the point mdiceited by the 
cursor but is missing. Code generation for the missing 
string is skipped and compilation continues. 

5 5 (Error) : No Initial or Constant List Item, Used -- 

An initial or constant list element is expected at the 
point indicated by the cursor but iS missing. Zero is 
used for the missing element and compilation continues. 

56 (Error): Parameter Not Fully Declared, Word Used -- 

One or more parameters (a symbol in the parenthesized 
name; list following a procedure head) is never fully 
declared. Word size and dimension of scalar is used. 
The cursor is not me£iningful. Compilation continues. 
The offending parameters are flaggt^d in the symbol table 
listing in the state ('ST') field. 
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5 7 (Error) : Interrupt Pr oc Dt gl ared With Lex>l, Used as 
Declared -- 

The interrupt procedure, wliose procedure head is indicated 
by the cursor, appears at ■> lex depth greater than 1. The 
procedure is used as decla ed but the object program may 
not work. Compilation con' inues. 

5 8 (Error) ; Unsatisfied Forw ird Labels or Procs, See Symbol 
Table -- 

One or more forward ref ere ices to a label or procedure is 
never satisfied by an appropriate label or entry. The 
cursor is not meaningful. Compilation continues. The 
offending symbols are flag led in the symbol table listing 
in the state ('ST') field. 

59 (Error): Junk in DCL Stmt . Text Skipped to Next ',' or ' ; ' — 

A declaration statement ca mot be decoded at the point 
indicated by the error cursor. Source text is skipped 
until the next delimiting ^oirana (',') or semicolon (';'). 
(Commas or semicolons appeiring in a comment or string 
constant are skipped as well.) Compilation continues. 

6 (Warning): External Symbo l Over 8 Chars, Tail Ignored — 

An external symbol exceeds 8 characters- The cursor indicates 
the offending symbol. Characters beyond the 8th are not 
passed to the loader. Com-jilation continues. 

61 (Error): String Need s Byt 3 Size, Treated as Byte — 

A variable preset witn a spiring, to which the cursor points, 
is not declared as size byte. The variable if treated 
as size byte for the purposes of initialization, but 
otherwise as the declared size. Compilation continues. 

6 2 (Warning) : String Le ngth Joes Not Match Dimension, Ignored — 

A variable preset with a string, to which the cursor points, 
has an explicit dimension that does not match the string 
length. The entire strinc is used even if a succeeding 
variable overlaid; the declared dimension is unaltered. 
Compilation continues. Tl is flag is generated for an 
INITIAL variable only if the string length exceeds the 
declared dimension, for a CONSTANT variable if the length 
does not exactly match the dimension. 
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6 3 (War ning) : Initial List Too Long , Used Anyway — 

The initial list, indicated by the cursor, for an INITIAL 
variable exceeds the declared dimension. The entire 
list is used even if it overlays succeeding variables; 
the declared dimension is unaltered. Compilation 
continues. No flag is generated if the initial list is 
too short. 

6 4 (War ning): Constant List Too Long or Short, Used Anyway — 

The constant list, indicated by the cursor, for a CONSTANT 
variable does not match the declared dimension. The 
entire list is used even if it overlays succeeding variables; 
the declared dimension is unaltered. Compilation continues. 

6 5 (Err or) : Base Variable Must Be Backward Ref , Cbase=0 Used -- 

The basing variable,, indicated by the cursor, of a based 
variable has not been previously defined. A constant 
base of zero is used for the variable being declared 
and compilation continues. If the basing variable is 
subsequently declared it will be flagged as already 
defined (Error 7) . 

6 6 (Bla nder) : Base Not Scalar Storage Ref, Used Anyw ay ■ — 

The basing variable, indicated by the cursor, of a based 
variable is not a scalar storage ri?ference. The base 
is used anyway but the generated code is erroneous. 
Compilation continues. The base mast be of class automatic, 
static, parameter, constant based, or variable based. 

6 7 (Err or) : Bad Size, Word Used — 

The size attribute, indicated by the cursor, is missing 

or invalid. A size of word is use(3 and compilation continues 

6 8 (Err or): Bad Bit Size, Bit(4 ) Use(] -- 

The bit size attribute, indicated by the cursor, is not 
1, 2, or 4. Bit (4) is used and compilation continues. 

6 9 (Warning) : Initial or Constant Va lue Too Big, Truncated 
o n L eft -- " 

The element in an initial or constant list, indicated by 
the cursor, is too big for the declared size. Bits are 
truncated from the left. The flag is generated if the 
bits discarded from a 32 bit intermediate value are not 
all the same. This interpretation of precision differs 
from that used in expression translation. 
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70 (Blunder): Parameter May Mot Have Area Attribute, See 
Symbol Table — 

An area attribute, indicated by the cursor, may not be 
specified for a parameter. The attributes used for the 
parameter are shown in the symbol table, but inasmuch as 
they are inconsistent, the code generated for parameter 
references will be erronecis. Compilation continues. 

71 (Warning) ~- 
Spare 

72 (Error): Base Missing, Cbase-0 Used -- 

The based variable, indicated by the cursor, contains an 
invalid or incomplete base reference at the point indicated 
by the cursor. A constant base of zero is used and 
compilation continues. 

7 3 (Error) : Proc Size Mismatch, New Size Used -- 

The new size for a procedure specified in an entry statement 
does not match the old siz-3 specified in a declaration 
statement. The new size is used for all subsequent code 
generation and compilation continues. Previous code 
generation will have used the old size. The cursor points 
to the procedure head of t !ie offending entry statement. 

7 4 (Blunder) : No ' = ' in Iter ative Do, Assumed - - 

An interative do does not contain an equals operator 
at the poiat indicated by the cursor. Its presence is 
assumed and compilation ccatinues. Either an equal sign 
('=') or a colon-equal sign (':=') may be used. 

75 (Error) : Constant Over 1£ Bits, Reduced Mod 2**16 -- 

The constait indicated by the cursor contains more than 
16 bits of precision while the current context allows 
for only 16 (word precisica). The low-order 16 bits of 
the constant are usee and compilation continues. 

76 (Warning): Do's Nested Tc o Deep, Nest Checking Invalid -- 

The do indicated by the cursor in nested too deep for nest 
checking. Compilation continues but future labeled ends 
will not be properly matched. See Section 2.3 for a 
discussion of do nest depth. 
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7 7 (Blu nder): Too Many Do Cases, Ign ored • — 

The do case indicated by the cursor exceeds the compiler 
capacity for active do cases. The body of the case is 
translated correctly but the link to the case is lost. 
Comp:.lation continues. A case is active until the 
matching end for the enclosing do case statement is 
encountered . 

7 8 (Blu nder) : No 'TO' in Iterative Do, Assumed — 

The keyword 'TO' is required in an iterative do at the 
point indicated by the cursor. Its presence is assumed 
and compilation continues. 

79 (War ning) -- 
Spare 

80 (Blu nder) : Bad 'BASED' Nesting, Ignored — 

The based variable, indicated by the cursor, has a loop 
in the basing chain. The chain is prematurely terminated 
and compilation continues. The flag cannot occur in the 
current compiler because the basing variable must be a 
baclcvjard reference; see Error 65. 

81 (Bl under) : Variable Must Be Stora < ;e Ref, Ignored — 

The variable indicated by the cursc^r is used in a context 
thar requires a storage reference. Code generation for 
the storage reference is incorrectly generated and 
compilation continues . 

8 2 (Err or) : End Identifier Must Be Do -Labe l/Begin-Label/ 
Entry, Ign o red - - 

The identifier, indicated by the cursor,, of a labeled end 
is not the label on a do or begin statement nor is it an 
entry to a procedure,. Block closure checking for this 
end is ignored and compilation con-inues. 

8 3 (Err or) : Label Does Not Match Cur rent B lock, Ignored -- 

The identifier, indicated by the cursor, of a labeled 
end does not match the label on the innermost open block 
or group. The mismatch is ignored, the block or group 
is closed, and compilation continues. 
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84 (Error) : Label On End Nov Defined, Ignored -- 

The identifier, indicated by the cursor, of a labeled end 
IS undefined. Block closure checking for this end is 
ignored and compilation cf ntinues. 

^^ ( Warning): Over 32,765 D ( Blocks, Nest Checking Invalid — 

The do indicated by the ci rsor is the 32,766th exceeding 
the compiler capacity for groups. Compilation continues, 
but future labeled ends wj 11 not be properly matched. 

86 (W arning): Stack Und erflc w (May B e Due To Another Flaa) 
Ignored -- ' 

The location counter for the program's run-time stack 
(stack counter) has underf lowed. The underflow is ignored 
and compilation continues. The underflow is usually a 
side effect of another flag. 

8 7 (Blunder): No Proc R ef Afte r 'CALL', Ignored -- 

A procedure reference is expected at the point indicated 
by the cursor after the ke/word CALL but is missing or 
invalid. Code generation for the procedure reference is 
ignored and compilation continues. The flag is usually 
the result of an undeclare i procedure. 

8 8 (Blunder): No Label Ref Aft er 'GO TO', Ignored -- 

A label is expected at the point indicated by the cursor 
after the keywords GO TO, ;0T0 , or GO but is missing or invalid 
Code generation for the la >el is ignored and compilation 
continues. 

89 (Blunder): Current P roc C tn not Return a Value, Ignored -- 

A return statement in a pr )cedure is returning a value 
indicated by the cursor, b it the matching procedure head 
did not include a return s ze. The procedure head size 
omission is ignored, code ;enerated for the return value 
and compilation continues. 

9 (Blunder): Current Proc Mu st Return a Value, Ignored — 

A return statement in a pr< cedure requires a value at the 
point indicated by the cur; or but none is present or is 
invalid. The value omissi< n is ignored and compilation 
continues. _ This flag is u; ually caused by the inclusion 
of a size m the matching i rocedure head where none was 
intended. 
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91 rgll'^il^^^ - No Statement After 'THE N ', Ig n ored -- 

A statement is expected at the point indicated by the cursor 
following the keyword THEN but none is present. Code 
generation for the statement is ignored and compilation 
coni'-inues . 

9 2 (Blurider) : No State m ent After 'ELSE', Ignored -- 

A sratement is expected at the point indicated by the cursor 
following the keyword ELSE but none is present. Code 
generation for the statement is ignored and compilation 
concinues . 

9 3 ( B 1 arider) : Embedded Assignment Does Not Allow Fie ld 
sr er'sc: t , Ignored — 

The field select operator, indicated by the cursor, may not 
be used in conjunction with an emt)edded assignment operator 

(':=•). Code generation for the field selection is 

ignored and compilation continues. 

94 (Blunder) : No Proc Arg , Ignored -- 



A procedurc^ argument is expected at the point indicated by 
the cursor but is missing or invalid. Code generation for 
the argument is ignored and compilation continues. 

9-' g^lunder) : Bad Nu mb er of Args to Built-in Proc, Accepted -■- 

The number of arguments to a built-in procedure is incorrect 
The cursor points to the argument list. Code is generated 
for the arguments written but the procedure will not work 
coirectly. Compilation continues. 

9 6 (Blu nder): Bad Arg Size fo r Built in Procedure, Accepte d -- 

The argum.ent indicated bv the cursor has an incorrect size 
for the specified builtin procedure. Code is generated for 
the size as written but the procedure will not work correctly. 
Compilation continues. 

9 7 (B].under) : Over 2,5 2 W ords of Pro c Ar g s, Reduced Mod 252 — 

The; total length of the argument List, indicated by the 
cursor, exceeds 252 words. Code for the argument list 
is generated but the call cannot be correctly executed. 
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9 8 (Blunder) : ' g ' Illegal W th Based Variable or Cons tan t , 
Ignored -- ~ ~~ 

The based variable or con.tfint indicated by the cursor 
is the object of the address operator ('§') which is illegal. 
Code generation for the a<idress operation is ignored and 
compilation continues. 

^9 (Blunder); Constant Ganne t t Be a Destination, Used Anyway -- 

The constant indicated by the cursor is used as a storage 
destination which is illecal. Code is generated anyway 
but the code will not wor) . 
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APPENDIX E: TOGG .ES -- SIMPLE LIST 

Toggle Default Settin g Function 

List symbol table 

Ignore high source bit 

List generated code 

Continue object on blunder 

Space for top-of-form 

List flags 

List object program 

Indent code listing 

List source program 

Honor memory checks 

Format for narrow page 

Generate object program 

Reset toggles at program start 

Chop source program listing 

Collect symbol references 

Format for short page 

Upspace listing 

Check memory each record 

Suppress warnings 

Continue on abort 

List program summary 

Honor listing requests (A C F H L y; 

Honor object in source 

Honor early source truncation 



sE—s: 

A 


On 


B 


On 


C 


Off 


D 


Off 


E 


Off 


F 


On 


H 


Off 


I 


On 


L 


On 


M 


On 


N 


Off 





Off 


P 


On 


Q 


Off 


R 


On 


S 


On 


U 


Off 


V 


Off 


W 


Off 


X 


Off 


Y 


On 


Z 


On 


# 


Off 


7 


Off 
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APPENDIX F: TOGGLES — DETAILED DESCRIPTION 

A (On) , List Symbol Table — 

The A- toggle, when on, enalles the symbol table listing. 
It is checked after the conpilation of a program to determine 
if a symbol table listing s desired. It does not affect 
the content of the symbol ' able in any way. 

B (On) , Ignore High Source B: t — 

The B- toggle controls the use of the high-order (leftmost) 
bit of the 8 bits that comjirise a source program character. When 
the B-toggle is on this bi' is ignored (set to zero) , 
when off this bit is left inchanged. The B-toggle is 
normally left on when usinq 7 bit media, e.g. paper tape, 
and left off when using 8 bit media. 

C (Off) , List Generated Code -~ 

The C- toggle, when on, ena;)les the generated code listing. 
It is checked as each 32/S instruction is constructed. 
It does not affect the actual code generation in any way. 

D (Off) , Continue Object on Uunder -- 

The D-toggle, when on, defeats the normal suppression of 
object after a blunder. ( Dbject is suppressed by turning 
the H-toggle and O-toggle :iff.) Inasmuch as a blunder 
indicates a faulty object orogram, extreme care should be 
taken in using any object jenerated under the D-toggle. 

E (Off), Space for Top-o f-Form — 

The E-toggie, when on, causes a sequence of carriage 
return/line feeds to be substituted for form feeds when a 
top-of-form is required. This toggle is useful when the 
physical listing device do3S not recognize form feed or 
interprets form feed for a i inappropriate page length. 

F (On) , List Flags — 

The F-toggle, when on, enaoles the listing of flags. 
If the F-toggle is on and the L-toggle off, the offending 
source line will be listed in addition to the flag; this 
is useful in scanning for 9rrors. Any flags suppressed 
because the F-toggle is off are still reflected in the 
program summary. 



* Default setting 
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H (Off) , List Object Program — 

The' H-toggle, when on, enables the listing of the object 
program. The H-toggle is independent of the 0-toggle 
(generate object) . The H-toggle xs turned off by the compiler 
whe-n a blunder occurs, unless the D-toggle is on. 

I (Or) , Indent Code Listing -- 

The I-toggle, when on, causes any generated code that is 
listed (which occurs when the C-toggle is on) to be indented 
50 spaces for improved listing clarity. On slower printers 
this indentation may slow output speed excessively. 

^ (OfQ , List Source Program — 

The L- toggle, when on, enables the listing of the annotated 

source program. If the L-toggle is off, and the F-toggle 

is on and a flag occurs, the offending line is listed anyway. 

^ (On) , Honor Memory Checks -- 

The M-toggie, when on, enables the checksumming of the 
program space occupied by the compiler. The frequency 
of this checking is controlled by the V- toggle. 

N (Off) , Format For Narrow Page — 

The N-toggle, when on, folds all listing output after 
character 70. This toggle is usually turned on only when a 
Teletype is used as the output device, as the listing 
becomes difficult to read. 

(Off) , Generate Object Program -- 

The O-toggle, when on, enables the generation of an object 
program on the object file. The O-toggle (generate object) 
is independent of the H-toggle (list object) . The O-toggle 
is turned off by the compiler when a blunder occurs unless 
the D- toggle is on. 

P (On) , Reset Toggles at Program Sta rt — 

The P-toggle, when on, causes all toggles to be reset to 
their default state before each progrcim is compiled. 
This reset may be defeated by turning the P-toggle off. 
Note that to apply the same set of toggles to a group 
of programs, the common set of toggles need appear just 
once in the first program in conjunction with the P-toggle. 
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Q (Off) , Chop Source Program Li sting — 

The Q- toggle, when on, causes the annotated source listing 
to be truncated after the source line: that is, the right- 
hand annotation is not listed. No other listings or titles 
are affected. This toggle will increase listing speed on 
slow listing devices. 

R (On), Collect Symbol Refere nces — 

The R- toggles, when on, enaoles the collection of symbol 
references. This activity has a negligible affect on 
compilation speed but a significant effect on symbol table 
space. If symbol table space is insufficient, this toggle 
is normally turned off. Whan the symbol table is listed 
any symbol with no references generates a 'SUPPRESSED' 
message; symbols with some references listed may also have 
some suppressed. 

S (On) , Format for Short Page - - 

The S-toggle, when on, defiies the listing page size as 51 
lines, when off as 66 (incl iding margins). 

U (Off) , Upspace Listing -- 

The U-toggle, when on, causes a top-of-form to be inserted 
in the listing file before -.he current line is listed. 
This toggle is set off by tie compiler after it is processed, 
The U-toggle may be used to control the pagewise formatting 
of a listing. Should a U-t ^ggle be encountered while the 
L-toggle (Ixst source progr im) is off, the upspace request 
IS ignored, but its suiDpres ;ion is indicated in the toggle 
summary by the appearance o an asterisk ('*'). 

V (Off) , Check Memory Ea ch Re -ord — 

The V- toggle, when on, caas -s memory checking to occur each 
source record. Memory is a ways checked once per program 
before the summary is listei. Memory checking consists of 
2 parts: memory checksum deck (performed only if the 
M-toggle is on) and compile - stack size check. If either 
check discloses a problem, t;e compiler aborts. 

W (Off) , Suppress Warnin' fs -- 

The W- toggle, when on, supp esses warnings. Suppressed 
warnings are included in thr flag summary but excluded 
from the console log and fl.g link. This toggle is useful 
when warnings are anticipat* d, but excessive use of the 
W-toggle is poor programmini practice. 
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X j^ff ) r Continue on Abort -- 

The <-- toggle, when on, causes compilation to continue after 
an abort. If an abort is suppressed, an 'ABORT SUPPRESSED' 
message is issued on the console log and program listing. 
The exact response of the compiler after an abort is 
indicated in Appendix D in conjunction with the flag 
descriptions. The routine suppression of aborts is a 
dangerous practice. 

Y (On) , List Program Summary — 

The Y- toggle, when on, enables the listing of the program 
summary. 



(On) , Honor Listing Requests -- 

The Z -toggle causes other listing requests to be honored. 
Z- toggle is a master enable for the A, C, F, H, L, and 
Y-toggles. The Z-toggle is useful in turning off all 
listings without knowledge of which listing components are 
enabled. 

(Off) , Honor Object i n Source -- 

The #- toggle, when on., causes source records with a pound 
sign ('#') in the first byte to be transmitted directly to 
the object file. Such records are otherv^ise treated as 
comm.ents. The object record buffer is flushed before the 
source record is transmitted. No checksum or sequence is 
computed for the transmitted record. The #-toggle provides 
a mechanism for the direct construction of loader text. 
For example, to insert a loader end record into the object 
file after the last program, suffix that last program with: 

/* &0 &# */ 
#END 



The 
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? (Off) , Honor Early Source Truncation -- 

The ?-toggle, when on, causes any text in a source record 
beyond the first character and beyond the first question 
mark ('?') to be discarded. This premature record truncation 
occurs even if the quest ior mark appears in a comment or 
string. To turn the ?-togc le off, the question mark must 
appear as the first character in a record lest it be treated 
as a comment. For example, the following program uses the 
question mark both to delimit comments and as string text. 



p: PROC; DCL 

a WORD, 

b BYTE, 

? */ 

C BYTE CONSTANT 

d WORD; 
END p; 



■■>->' 



/* &? */ 

? Comment 
? Comment 



/* &? */ 

? Comment 



/' 



The ?-toggle provides an a ternate mechanism for program 
annotation, but is considered poor coding practice. 



App G 



155 



APPENDIX C 



LIST OF FOULS 



Foul 



Procedure 



CLEV 


extproc 


Case level 


CPTR 


extproc 


Case table 


CPTX 


group 


Case tabel 


DELT 


delta 


Symbol tab 


DLEV 


extproc 


Do level n 


ENDS 


end- stmt 


End statem 


FLGl 


flag 


Flag nrnnbe 


FLG3 


flag 


Flag sever 


GETI 


getst 


Symbol tab 


GETS 


getst 


Symbol tab 


IDEX 


index 


Item not f 


INSE 


listst 


Field desc 


INST 


insertst 


Text lengt 


LABI 


labels 


Symbol typ 


LAB2 


label s 


Symbol typ 


LABS 


labels 


Symbol typ 


LIT 


physchar 


Literally 


LLEV 


extproc 


Lex Level 


MOST 


move St 


Target fie 


MOVE 


move 


Target fie 


PBSC 


procbody 


Stack coun 


PRIN 


print 


Line size . 


PULD 


pull-do 


Do level 1- 


PULL 


pull-lex 


Lex level 


PURG 


purge f wd 


Purge type 


PUTI 


putst 


Symbol tab 


PUTS 


putst 


Symbol tab 


RPTC 


rptchar 


Repeat cha 


RUSE 


reuse 


Reuscj leve 


SET 


set 


Target fie 


SIZE 


mpl 


Symbol tab 


SPUT 


prinwrit 


Line size < 


TUSE 


token 


Reuse- leve 


TYPE 


type 


List size i 


WEXP 


group 


Expression 



C ause 

not at program end 

not empty at program end 

pointer not in case table 
-e entry has bad units field 
it at program end 

mt type out of range 
' out of range 

ty invalid 

e entry pointer not in symbol table 

e field code out of range 

>und 

iption not found 
i out of range 
■ not an identifier 
' is a keyword 

• out of range 
evel less than 
lOt at program end 
d length out of range 
d length out of range 

er invalid at program end 
•xceeds buffer size 
ss than 1 
ess than 1 
out of range 

e entry pointer not in symbol table 
e field code out of range 
acter flag already active 

out of range 
d length out of range 

e base too big 
xceeds buffer size 

out of range 
xceeds buffer size 
type invalid 
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APPENDIX H: FLAG REFERENCES 



Flag Is Generated By Procedur e - 



1 extproc 

2 string 

3 constunt dclelemt dclelemt nitlist num-pri num-pri prochead prochead 

proc-ref ref sizeattr s- ef var 

4 constxint 

5 constunt 

6 extproc 

7 blocksen dclelemt dclelemt <iclelemt dclelemt dclelemt labels prochead 

8 token 

9 logchar 

10 get-lex 

11 var 

12 ref 

13 ref var var 

14 s-ref 

15 n\jm-pri s-ref 

16 s-ref s-ref 

17 num-pri 

18 c-exp c-exp group if-then m m-pri 

19 konstant 

20 num-pri 

21 num-pri 

22 semiscan 

23 as-stmt exp log-fact log-tei m num-exp num-fact num-term s-exp 

24 inc-pc 

25 inc-sc inc-xc 

25 constunt constunt 

27 if-then 

28 c-exp 

29 flag 

30 memcheck 

31 insertst putst 

32 push-lex 

33 push-lex 

34 token 

35 

36 memcheck 

37 sread 

38 search 

39 newentry 
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40 


owrite owrite owrii 


;e 


41 


as-stmt exp 




42 


as-stmt exp group 




43 


in-sym 




44 


save -re f 




45 


s;/itibol 




46 


dclelemt 




47 


semi 




48 


prochead prochead 




49 


-- 




50 


extproc 




51 


dcl-stmt dcl-stmt 




52 


dclelemt dclelemt 




53 


dclelemt 




54 


dclelemt 




55 


areaattr initlist 




56 


procbody 




57 


blocksen 




58 


extproc 




59 


dcl-stmt 




60 


areaattr dclelemt 


extproc 


61 


initstr 




62 


initstr 




63 


initlist 




64 


initlist 




65 


areaattr 




66 


fireaattr areaattr 




67 


£;izeattr sizeattr 




68 


sizeattr 




69 


initlist 




70 


dclelemt 




71 


— 




72 


areaattr 




73 


blocksen 




74 


group 




75 


areaattr dclelemt 




76 


push-do 




77 


group 




78 


group 




79 


— 
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80 


get-mode 


81 


group 


82 


end- stmt 


83 


end -stmt 


84 


end- stmt 


85 


push -do 


86 


dec-sc 


87 


cal-stmt 


88 


goto stmt goto stmt 


89 


num-pri ret-stmt 


90 


ret- stmt 


91 


if-stmt 


92 


if -stmt 


93 


exp 


94 


proc-ref proc-ref 


95 


proc-ref 


96 


proc-ref 


97 


proc-ref 


98 


num-pri proc-ref 


99 


as-stmt exp group 
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MT 



i-IPL 

AnU«-f<F F 
^ P I A A T T R 
A S •- S T M T 
A«-LVr 

" IM?iif X 

R I ^J 2 1 1 r X 1 
RLUC 

HLUCKSFN 
'^FL 31 7E 

R ♦• I V r 

C A L ♦• 3 T M I 
COMSTHMT 

nCLtl r 

HLLHAIN 

orL«-3r 

f^FLTA 
LNLHA [N 

t" >f I T 

L x in (Mir 
LXU'UT 

I- L A l"^ 
t' OK'-^AT 
f (1UL 
r, A a 7 

r-F t;u 

r, F T «- 1 r X 
r;F T^'-iOOF 

f; I ;i 7 

r; n T s T *^ T 
r,p;;7 

^F•■CLA^i''^ 
1 r «• ;5 r M I 
l^•-T'^^ N 
1 N I. <- p r 

1 N L «• X C 

INUF X 

T N 1 T L [ 3 T 

1 N I T S f R 

1 n;u ,<t.st 

1 N •- 3 Y H 
K f) N S T A N T 
L AHDUHFr 
{ ARt LS 

L KJ T ? T 

(.OI-CmAR 

I ;!i.«-'- ATT 



I r? F FN 

F 14 T R Y 

t ^hM 

?,1M 
?I8f) 

^?80 

P-l 14 

?'144 
P-IHH 
558(1 
?00? 

9996 

^51 n 

«^n 18 

S,18H 
■SI 21 
•SI 76 
•S 2 7 6 
S144 

S5:^8 

•S8P6 
^278 
M«3b 
,T7 1 ? 

HOI 4 
^Q66 
1 5104 
« 264 
1 298 
1718 
1 778 
91 16 
215W 
V^l 6 

T n4 

M7W 
■^540 

^64 4 
16rtH 
184H 
4819 
'S)b8 
S9b4 
SJ76 
S 4 3 H 
«S45R 
'=i75i:i 

7546 
775f, 
7qHh 



1PY PO 
-AODR 
/t-t X 

/t»41 6 
/il 124 

/ 6 ^ r; 

/v37R0 
/t5B8A 

/«396t 
/ l^ t) B t: 
/ '^ 9 B 
/kJA t 4 

/ e " 5 6 

/tj;^78 
/ :^ « 4 
/ V? C 1 o 
/ '.i I) R 6 
/ v3 L 8 M 
/I .iJl/) 
/I J88 

/1 ,5na 

/I ilM4 
/I 4j(j 
/I 4^C 
/ 1 4 r i4 
/ 1 ^. A 2 

/r;.r2 

/I (if 2 
/I HHt, 

/I HA2 
/29D0 
/?A A2 

/ 9 A n 6 
/ 2 A r c; 
/2i:i''ti 
/9r.22 
/?nr4 

/2Ll:12 

/2f 5 4 
/^i 7b 
/ ■=! I M i 

/ ^ 1 1 6 

/119C 

/ 1 1 r 4 
/ 1 'j (^ Id 
/^54C 
/ Vj78 
/.1fi18 
/390L 
/ 1 R 4 fe) 
/IRAH 

/.m;ih 

/3C4b 
/1C62 
/3i)86 
/ ^ r 8 C 
/ 1 4 « A 

/-I j5C 
/4r;42 



INT3* 
STA 
DLC 

8 
B 
8 
8 



TIC-UKG 

/HEX 
/Hi?H8 
/ M 17! 8 
/'k»^tl8 
/0i:iH8 
/i^0(/)8 
/l/)::iH8 
/ kJ'^ t^ 8 

/i4ati8 

/W.^H8 

/l,()!^C18 
/HOP'S 
/HTl^8 
/ H i;i 8 

/H';i08 
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APPENDIX J: EXTERNAL PROCEDURE REFERENCES 



Procedure 

mpl 
add-ref 

areaattr 
♦assign 
as- stmt 
a-cvt 
b2dl0 
b2dl01 
b2dnr 
bin2hex 
bin2hex2 
bin2hex4 

bloc 

blocksen 

bytesize 

b-cvt 

cal-stmt 
*close 

constunt 

c-exp 
*date 

dclelemt 

dcl-stmt 

dechain 

dec-sc 

defst 

delta 
♦display 

enchain 



Is Called By Procedure — 

areaattr blockser end-stmt gotostmt group niMi-pri proc-ref 
token var 

dclelemt 

owrite 

stmt 

as-stmt exp if-tlen log-fact num-term ref ret-stmt s-ref var 

b2dl01 b2dnr 

flag out-addr oul -byte out-dble out-inst out-lit out-lwl out-word 

format list list.' t Ist-adr prinwrit 

bin2hex2 bin2hex' 

out-byte out-ins^ out-lit outlwl out-rec 

format list list: t Ist-adr out-addr out-dble out-inst out-lit 
out-lwl out-W( rd 

unexunit 

group procbody 

areaattr initstr procbody 

log-fact log-ten num-exp num-term s-exp 

stmt 

exit 

token 

exp 

mpl 

dcl-stmt 

procbody 

bloc dclelemt gr< up procbody 

c-exp group out- nst proc-ref ret-stmt 

gotostmt symbol 

dclelemt procbod\ 

extproc type 

dclelemt labels prochead 
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end- stmt 

exit 

exp 

extproc 

exunit 

flag 



format 
foul 

gasz 
getst 



get-lex 

get-mode 

gisz 

gotostmt 

gpsz 

group 

if-claus 

if-stmt 

if-then 

inc-pc 

inc-sc 

inc-xc 

index 

initlist 

initstr 

insertst 

in-syir 



group procbody 

flag sread 

as-stmt c-exp group if-then num-pri proc-ref ref ret-stmt s-ref var 

mpl 

blocksen if-stmt 

areaattr as-stmt blocksen c-exp cal-stmt constunt dclelemt 

dcl-stmt dec-sc end-stmt exp extproc get-lex get-mode gotostmt 
group if-stmt if-then inc-pc inc-sc inc-xc initlist initstr 
insertst in-sym konstant labels logchar log-fact log-term 
memcheck newentry num-expi num-fcict num-pri num-term owrite 
procbody prochead proc-ref push-do push-lex putst ref ret-stmt 
save-ref search semi semiscan sizeattr sread string symbol 
s-exp s-ref token var 

print type 

delta end-stmt extproc flag getst group index insertst labels 

listst mpl move movest physchar print prinwrit procbody pull-io 
pull-lex purgefwd putst rsjuse rptchar set token type 

as-stmt num-pri proc-ref 

areaattr as-stmt blocksen bytesize dclelemt dechain 

delta end-stmt exp extproc gasz get-lex get-mode gisz gotostmt 
gpsz group initlist initstr labdobeg labels listst movest 
namesame num-pri olt out-inst physchar procbody proc-id proc-ref 
pull-lex ref refst ret-stnt search s-ref token var var-id 

gotostmt out-inst 

num-pri var 

as-stmt exp gasz get-mode num-pri ret-stmt 

stmt 

get-mode out-inst ret-stmt 

unexunit 

if-stmt 

exunit. 

c-exp if-claus 

out-addr out-byte out-dble out-inst out-lit out-lwl out-word 

out-inst out-lit out-lwl procbody piroc-ref 

extproc procbody 

refst token 

areaattr 

areaattr 

dclelemt newentry 

group num-pri proc-ref var 
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konstant 

labdobeg 

labels 

list 

listst 

logchar 

log- fact 

log-term 

lookfor 



Ist-adr 

memcheck 

move 

movest 

namesame 

newentry 

nul-stmt 

num-exp 

num-fact 

num-pri 

num-term 

olt 

*open 
out-addr 
out-byte 
out-dble 
out-inst 



out- lit 

out-lwl 

out-rec 

out-word 

out-wrt 



areaattr dclelemt 

gotostmt pull-lex 

if-claus unexunit 

flag foul memcheck 

flag mpl 

constunt token 

log-term 

s-exp 

areaattr bloc bloc 
exp extproc got 
labels log-tern 
ret-stmt semi e 

out-addr out -byte 

mpl sread 

extproc flag list? 

extproc list list; 

refst 

defst refst 

stmt 

log-fact 

num-term 

num-fact 

num-exp 

dclelemt extproc 
out-lwl out -wo 



nitlist num-pri sizeattr 



mpl out-wrt owrite sread 



■csem cal-stmt c-exp dclelemt dcl-stmt end-stmt 
3Stmt group if-stmt if-then initlist in-sym 
mpl nul-stmt num-pri prochead proc-ref ref 
implesz sizeattr s-ref var 

3ur-dble out-inst out-lit out-lwl out-word 



t mpl prinwrit sread 
t olt out-inst 



)ut-addr out-byte out-dble out-inst out-lit 
d procbody prochead 



owrite 

group purge fwd 

areaattr initlist initstr 

initlist initstr 



areaattr as-stmt 
extproc get-mo 
log-fact log-t 
procbody proc- 

get-mode num-pri 

num-pri 

exit mpl olt srea 

initlist initstr 

out-addr out-byte 



i-cvt bloc blocksen b-cvt cal-stmt c-exp exp 
ie gotostmt group if-stmt initlist initstr labels 
=:rm num-exp num-fact num-pri num-term out-lit 
ref purgefwd ref ret-stmt s-exp s-ref var 



/ar 



out-dble out-inst out-lit out-lwl out-word 
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o write 
physchar 
print 
prinwrit 
procbody 
prochead 
proc-id 
proc-ref 
pull-do 
pull-lex 
purge fwd 
push-do 
push-lex 
*put 
putst 

ref 
ref st 
ret-stmt 
reuse 

rptchar 

save-ref 

search 

semi 

semiscan 

set 

settogs 

simplesz 

sizeattr 

sread 

statest 

stmt 

string 

summary 



extproc out-rec sread 

constunt logchar string tokon 

flag foul memcheck summary 

flag list listst out-wrt owrite print summary 

bloc blocksen extproc 

blocksen extproc 

cal-stmt numpri proc-ref 

cal-stmt n\:mi-pri 

end-stmt pull-lex 

end- stmt 

blocksen laibels 

group push-lex 

bloc extproc prochead 

owrite 

add-ref areaattr bloc blocksen dcl€;lemt defst enchain ext-proc 

get-mode gotostmt group mitstr in-sym labels newentry procb^3dy 
prochead pull-lex ref-st simplesz sizeattr symbol 

s-ref 

areaattr end-stmt in-sym 

stmt 

as-stmt blocksen dcl-stmt gotostmt in-sym konstant labels log-fact 
lookfor num-exp num-fact num-pri num-term proc-ref symbol 
s-exp s-ref var 

constunt logchar string token 

areaattr gotostmt num-pri out-inst 

defst pull-lex state;3t 

extproc prochead 

as-stmt bloc cal-stmt end-stmt gotostmt group procbody ret-stmt 

extproc flag list listst mpl print prinwrit sread summary 

mpl 

dclelemt prochead sizeattr 

dclelemt 

physchar 

gotostmt refst token 

unexunit 

token 

flag mpl 
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symbol 
*sysget 
*sysput 

s-exp 

s-ref 
*time 

token 

type 

unexunit 
var 
var-id 



blocksen dclelemt extproc labels prochead 

sread 

prinwrit 

exp 

as-stmt exp num-p i 

mpl 

as-stmt blocksen ictstmt ext-proc gotostmt in-sym konstant 
labels log-fac lookfor nxim-exp num-fact num-pri num-term 
semiscan symbo s-exp s-ref 

exit flag fcjul me: icheck mpl 

exunit 

num-pri ref 

group var 



* System procedure 



App K 



167 



APPENDIX K: EXTER^AL VARIABLE REFERENCES 



Variable 

aborts 

accesses 

block 

blocklex (maxlex) 

blunders 

casebuf (casemax) 

caseitem 

caselev 

casemax 

caseptr 

charsave (maxlit) 

checks (31) 

codebuf (listsize) 

colisons 

consf lag 

consloc 

cursor 

desc (1) 

descold (1) 

dolev 

domax 

done St (domax) 

donumber 

dumlO) 

dum2 (3) 

eofflag 

errmax 

errors 

flagbuf (listsize) 

f wdbase ( f wdmax) 



Is Referenced By P r ocedure — 

mpl flag summary 
mpl search summary, 
mpl push- lex summary 

mpl defst gotostmt list newentry pull-lex push-lex statest 
mpl flag olt procl-ody summary 
mpl group 
mpl group list 
mpl extproc group list 
mpl group 
mpl extproc group 
mpl physchar 
mpl memcheck 

mpl Ist-adr out-addr out-byte out-dble out-inst out-lit 
out-lwl out-word out-wrt 

mpl search summar / 

mpl areaattr procoody 

mpl areaattr procoody 

mpl flag physchar 

mpl 

mpl 

mpl end-stmt extproc list pull-do push-do 

mpl push-do 

mpl end-stmt push-do 

mpl bloc gotostmt group prochead push-do 

mpl 

mpl 

mpl sread 

mpl flag 

mpl flag olt proc body summary 

mpl flag 

mpl procbody pui: -lex purgefwd save-ref 
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f wdlex ( f wiimax) 

fwdmax 

fwdpc(fwd]nax) 

fwdptr 

hashloc 

hashsize 



mpl pull-lex purgefwd save-ref 

mpl save-ref 

mpl procbody pull-lex purgefwd save-ref 

mpl extproc procbody pull-lex purgefwd save-ref 

mpl newentry search state st 

mpl newentry search 



hashtab (hashsize) mpl newentry search 



itembase 



itemmax 

labchain 

labdesc (1) 

labflag 

lastflag 

lex 

lexdepth 
line 



mpl areaattr as-stmt dclelemt dechain enchain exp getst get-mode 
group list listst newentry physchar procbody prochead proc-ref 
pull-lex purgefwd push-lex putst ref ret-stmt save-ref search 
s-ref token var 

mpl getst insertst newentry putst summary 

mpl bloc group labels 

mpl 

mpl blocksen labels 

mpl flag summary 

mpl bloc blocksen des-sc defst extproc get-lex get-mode gotostmt 
inc-sc inc-xc labels lis": newentry procbody prochead pull-lex 
purgefwd push-lex refst ret-strat save-ref statest 

mpl push-lex summary 

mpl add-ref dclelemt defst flag lal:)els list sread summary 



listbuf (listsize) mpl list listst print summarv 



listsize 



mpl flag list listst Ist-adr out-inst out-wrt print prinwrit 
summary 



listwait mpl list 

litbase (maxlit) mpl phsychar token 

litcursr (maxlit) mpl physchar token 

litlev mpl physchar rptchar token 

lobjx mpl olt out-rec 

maxlex mpl push-lex 

maxlit mpl token 

namchain mpl dclelemt 

namdesc (1) mpl 

numberd mpl procbody 

numberp mpl dclelemt 

objbuf (objsizel) mpl extproc olt out-rec owrite sread 

objbufl (objsizel) mpl owrite 

objbuf 2 (objsizel) mpl owrite 
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objecton 

objfcb(13) 

ob j item 

objrecn 

objsize 

objx 

page 

page 1 in 

parchain 

pardesc (1) 

pb 

pc 



pccons 

Pl 

proclex (maxlex) 

ptr 

ptrold 

refs 

reuselev 

rptflag(maxlit) 

sc (maxlex) 

sclmax 

sobuf (sosize) 

sosize 

srefmode 

stacksiz 

stackuse 

stbase 

stbaseO 
stints 
symbols 
tcode 



mpl exit owrLte 

mpl exit owrite 

mpl owrite S'ommary 

mpl out-rec 

mpl extproc olt out-rec owrite sread 

mpl olt out-rec 

mpl prinwrit 

mpl prinwrit 

mpl dclelemt proct ody prochead 

mpl 

mpl memcheck 

mpl areaattr bloc]< sen c-exp gotostmt group if-stmt inc-pc initlist 
initstr labels list Ist-adr num-pri out-addr out-byte out-dble 
out-inst out-: it out-lwl out-word procbody proc-ref purgefwd 
summary 

mpl areaattr dclel emt 

mpl memcheck 

mpl bloc list pusl -lex ret-stmt 

mpl areaattr consi ant dclelemt end-stmt gotostmt initstr in-sym 
konstant num-j ri reuse string symbol token 

mpl reuse token 

mpl putst summary 

mpl reuse token 

mpl physchar rpt-( har token 

mpl dec-sc ;inc-sc inc-xc labels procbody push-lex 

mpl ine-sc summar- 

mpl list physchar sread 

mpl list physchar sread 

mpl exp num-pri 

mpl memcheck summary 

mpl memcheck summ-iry 

mpl getst inserts listst movest namesame newentry physchar 
pull-lex puts' search 

mpl memcheck pull lex 

mpl summary token 

mpl listst newent y summary 

mpl reuse token 
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tcodeold 
textmin 
textminO 
titleptr 
toggle (2 55) 

tokenlev 
value 

varchain 

vardesc ( L) 

version 

warnings 

warningt 

width4 

xc 



mpl reuse token 

mpl dclelerat insertst newentry putst summary 

mpl summary 

mpl extproc prinwrit 

mpl flag list listst logchar memcheck out-wrt owrite physchar 
prinwrit putst settogs sread summary 

mpl token 

mpl areaattr constunt dclelemt initlist num-pri sizeattr string 
token 

mpl dclelemt procbody 

mpl 

mpl 

mpl flag olt 

mpl flag summary 

mpl getst listst newentry putst 

mpl extproc inc-sc inc-xc procbody summary 
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1 • program : : = 

Gxternal_procedure 

2. Gxternal_proce(iure :: = 

entry_naniG : external_proc9dure_heari procefiure_hody [EOF]. 

3. Gntry_name : : = 

identifier 

4. external_procedure_head ::= 

MAIN [procedure] ; | 
procedure_head 

5 . procedure : : = 

PROCEDURE ! 
PROC 

6. procedure_head ::= 

INTERRUPT [procedure] ( parameter ) ; | 
procedure [( parane ter_li s- )] [ simple_size ] ; 

7 . para'Tieter : •• = 

identifier 

3. parameter_li St ::= 

identifier [, identifier]... 

9. sinple_size ::= 
BYTE I 
WORD I 
DOUBLE 

10. procedure_]3ody :: = 

[declare_state'nent] . . . [ bl ^ck_sentence] . • . end_statenent 

11. declare_sta tement ::= 

declare declare_element [, dGclare_elenient] . . . ; 

1 2. declare : : = 

DECLARE I 
DCL 

13. declare_element ::= 

identifier literally strinf | 

entry_name type_attribute 

item_list si ze_attribute [.■rea_attribute] 

14. literally : : = 

LITERALLY | 
LIT 
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15- type_att:r ibute : : = 

[external] procedure [ simple_size] | 

( konstant ) MICRO [ simple_si ze] 
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1 6. external : : = 

EXTERNAL | 
EXT 

17. iten_li3t ::= 

identifier [( konstant )] 1 

( identifier [( konstant )] [, identifier [( konstant )]]••• ) 

18. size_attribute ::= 

simple_size 1 

POINTER [TO] simple_size I 

BIT ( konstant ) 



19. area„attribute ::= 
external I 
STATIC 1 
COriSTAMT string 
C0N3TAMT ( [+ I 
initial string I 

initi-=. 1 ( [+ ! -] konstant (; [■ 
3A3S:D konstant 1 



konstant [ , [ t 



I -] konstant] 
-] konstant] • 
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2 0. initial ::= 

INITIAL ! 
I 'TIT 

21. block_sentence ::= 

entry_nane : procedure_head procedure_body | 
executable_un it 

22. eKecutable_unit ::= 

if_statenent I 

Lincond itional_executable_unit 

23. if_statement '• : = 

if_.clause executable_unit I 

if_clause balanced_executable_unit ELSE executable_unit 

24. if_clause ::= 

[label list] if_then 



25. it_then : : = 

IF expression THEN 
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26. 



27, 



29, 



30. 



balancGd_executablG_unit ::= 

if_clausG balanced_Gxecut iblG_unit ELSE 

balancGd_GXGCutablG_ init | 
unconditional_GXGcutablG_ init 

unconditional_GXGcutable_unit : := 
[labGl_list] block | 
[labGl_list] group | 
[labGl_list] statGTTiGnt 

label_list : : = 
[ labGl : ] . . . 

label : : = 

idGntifier 

block : : = 

BEGIN ; procGdure bodv 



■5-7 



33. 



Gnd_statemGnt 



31. q ro up : : = 

qroup_heading ; [block_SGi- tencG] . 

group_hGadinq ::= 

REPEAT Gxpression [TIMES] | 
DO [do_specification] 

do_specification ::= 
FOREVER I 

WHILE Gxpression | 
CASE Gxpression | 
idGntifier rGplacG_op Gxpression TO exprGssion [BY exprGSsion: 

34. replacG_op ::= 



35. Statement : : = 

null_statenent | 
return_sta tGment | 
qoto_sta te^ient | 
call_statGmGnt | 
assignmGnt^statement 

36. null_statGment ::= 



37. return_statemGnt ::= 

RETURN [expression] ; 

38. goto_sta tement :: = 

go_to label ; 
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39. qo_tO '~~ 

GOTO 1 
GO [TO] 

40. call_sta1:ement :: = 

CALL procedure_refGrence ; 

41. pr6cedure_reference ''= ^i m 

entry_name [( procedure_argument I, procedure_arguinent] . • » )^J 

42. procedure_argument ::= 

expression I 

array_name 

43. array_name : := 

identifier 

44. assigninent_statement : = = 

storage_refarence assignm6nt_operator expression ; 

45. assignment_operator ::= 

46. expression : : = 

conditional_expres3ion ! 
siiriple_expression I 
storage_referance := expression 

47. conditional_expression : *• = 

if_then expression ELSE expression 

43. simple_expression ::= 

logical_tern [or_operator loaical_terr[i] . . • 

49. or_operator — = 

! ! 1 I XOR 

50. logical_.term :: = 

logical_factor C& logical_factor: — 

51. logical„f actor ::= , 

nuTneric_expression [comparison_operator numeric_expression] .-• 

52. comparison_operator : : == 

< I <= I -> 1 = I '= I >= I ^< I > ! 

LLT I LLE i LEQ | LNE | LGE i LGT 

53. numeric__expression :: = 

numeric_terim [add_operator numer ic_terni] . . • 
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54. add_operator ::= 

+ I - 

55. nurneric_term :: = 

numeric_factor [multLply_ operator numeric_factor] . . . 

56. multiply_operator ::= 

* I / I MOD I MULD I DIVD | SLL | SRA | SRL | SLC 

57. nurneric_factor :: = 

unary_operator numer LC_fa rtor | 
numeric_primary 

58. unary_operator ::= 

+ I - I - 

59. numeric_primary ::= 

konstant | 

procedure_rGf erence I 
storage_referGnce ! 
? variable I 
( expression ) | 
PRTNUM ( entry_namG ; 

60. storage_ref erence ::= 

reference [$ ( expression [: expression] )] 

61 . reference : : = 

variable [@ [( expression )]] 

62 . variable : : = 

identifier [ ( expression ] 

63. end_statement ::= 

[label_list] END [label | entry„namG] ; 

64 . konstant : : = 

constant | 
string 

65. constant : : = 

decimal_number | 
bit_string 

66. decimal_number ::= 

digit. . • 

67. bit_string : : = 

" [ [( legal_size )] [ leg<: l_digit] ]... " 



176 



App L 



68. leqal_size : : = 

1 I 2 I 3 I 4 

69. legal_r!iqit : •" = 

digit |AlB|C|D|S|F 

70. digit : := 

I 1 I 2 1 3 I 4 I 5 I 6 I 7 I 8 



71 . string : : = 

' [non_quotG_char] • . . ' [string] 

72 . identifier : : = 

alpha be tic_charactGr [alphameric] 

73 . alphaneric : : = 

alphabetic_character | digit 

74. alphabetic_character : : ■= 

lowGr_case I 
upper_casG ] 



lower_ca se : : = 

a!b|c|dle!flg!hli!i|k|l 
n ; o 1 p ! q i r ' s ! t I u ! V I w I X i y 



76. upper_case ::= 

A ; B I C I D I E I ? I G I H I I 1 J I K I L I M 

n;o|p|q|r|s|t|u1v|w!x|y|z 
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54 add_operator 
53 

74 alDhabGtic_character 

7 2,73 
73 alphameric 

72 
19 area_attributG 

13 
4 3 array_name 

42 
44 assignnnent_sta tement 

35 
4 5 assignment_operator 

44 
26 balanced_executable_unit 
23, 26 
BASED 

19 
BEGIN 

30 
BIT 
18 
6 7 bit_strinq 

65 
3 block 

27 
21 block_sentence 
10, 31 
BY 

33 
BYTE 

9 
CALL 
40 
40 call_sta tenant 
35 
CASE 
33 
52 comparison_opGrator 

51 
47 conditional_Gxpression 
46 
CONSTANT 
19 

65 constant 

64 

DCL 

12 

66 deciinal_nuinber 

65 



13 declare_element 

11 

12 declare 

11 

DECLARE 

12 

11 declare_stateinent 

10 
70 digit 
66,73 
DIVD 

56 
DO 
32 
33 do_specification 
32 
DOUBLE 

9 
ELSE 

23,26, 47 
END 
63 
EOF 
2 
63 end_sta tement 
10, 31 

3 entrv_name 

2, 13,21,41, 59,63 
22 executablG_unit 

21, 23 
46 expression 

25, 32, 33, 37, 42, 44, 46, 47, 59,60, 
16 external 61,62 

15, 19 
EXT 

16 
EXTERNAL 

16 

2 external_procedurG 

1 

4 external_procedure_head 

2 

FOREVER 

33 
GO 

39 

3 9 ao_to 

38 

GOTO 

39 



178 



3 8 goto_stdtement 
35 

31 group 

27 

32 group_heading 

31 
72 identifL€ir 

3, 7, 8, 13, 17,19,29, 33, 43,62 
IF 

25 
2 4 if_clause 

23, 26 

2 3 if_statement 

22 
2 5 if_then 

24, 47 
20 initial 

19 
I NIT 

20 
INITIAL 

2 
INTERRUPT 

1 7 it2m_li;5t 

13 
64 konstant: 

15,17,18,19,59 

2 9 label 

2 8,38,63 
28 label_li£;t 

2 4,27,63 
69 legal_diait 

67 
68 legal_size 

67 
LEQ 

52 
LGE 

52 
LGT 

52 
LIT 

14 
14 literallv 

13 
LITERALLY 

14 
LLE 

52 



LLT 
52 

LNE 

52 
51 logical_factor 

50 
50 logical_term 

48 
7 5 lower_case 

74 
MAIN 

4 
MICRO 

15 
MOD 

56 
MULD 

55 
5 6 rnultiply_operator 

55 
non_auote_char 

71 
35 null_sta ternent 

35 
53 numeric_GxprGssion 

51 
5 7 numeric_factor 

5 5,57 
5 9 numGric_pr inary 

5 7 
5 5 nuTneric_term 

5 3 

4 9 or_opGraotr 

4 8 

7 parameter 

6 

8 parameter_list 

6 
POINTER 

18 
PROC 

5 
PROCEDURE 

5 

5 procedure 

4,6, 15 
42 procedur e_argumment 

41 
10 procedur e_body 

2,21, 3 
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6 procedurG_head 

4,21 
41 procGdure_reference 

40, 59 
1 program 

PRTNUM 

59 
61 reference 

60 
REPEAT 

32 

34 replace_op 

33 
RETURN 
37 
3 7 return_Etatement 

35 
43 simple_expression 

46 
9 simple_size 

6, 15, 18 

18 size_attribute 

13 

SLC 

56 

SLL 

56 

SRA 

56 

3RL 

56 

35 statement 

27 
STATIC 
19 
60 storage_reference 

44,46,59 
71 string 

13, 19,64,71 
THEN 

25 
TIMES 

32 
TO 
18, 33, 39 
15 type_attribute 

13 
58 unary_opGrator 
57 



27 unconditional_GxecutablG_unit 

22,26 
76 upper_case 

74 
62 variable 
59,61 
WHILE 

33 
WORD 

9 
XOR 
49 



